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Technical  Reports  NAVTRADEVCEN  68-C-00$'0-2 
ADVANCED  SUBMARINE  SYSTEMS  PROGRAMING 
ABSTRACT 


i 


This  programing  report  is  the  result  of  a  study  leading  to  the  deter¬ 
mination  of  the  optimum  sets  of  equations  of  motion  to  be  used  with  two 
general  types  of  submarine  control  trainers.  The  starting  point  was  the 
Naval  Ship  Research  and  Development  Center  standard  equations  of  motion 
for  submarine  simulators. 

Two  complete  submarine  simulation  programs  using  these  equations  are 
givenj  one  for  six-degrees-of -freedom  and  one  for  the  longitudinal 
three-degrees-of -freedom.  A  number  of  programs  are  included  to  assist 
the  researcher  in  interpreting  the  results  of  the  main  simulation  pro¬ 
gram,  A  compact  submarine  simulation  program  for  use  with  a  small 
computer  is  given  and  a  method  of  generating  random  ocean  wave  ampli¬ 
tudes  is  outlined  along  with  its  program. 

This  report  describes  the  programs,  including  listing  in  FORTRAN,  flow 
charts,  input  decks,  and  typical  output  sheets,  but  does  not  tell  how 
they  are  to  be  used.  It  should  be  used  in  conjunction  with  Advanced 
Submarine  Systems  Equation  Study,  NAVTRADEVCEN  68-C-0050-1  which 
describes  the  work  performed  under  this  study. 


NAVTRADEVCEN  68-C-0050-2 
FOREWORD 


This  report  presents  corrputer  programs  which  allow  various  investigations 
of  submarine  simulation.  Descriptions,  flow  charts,  and  listings  are  presented 
for  each  program.  Important  uses  of  the  programs  include  coefficient  reduction 
of  any  class  of  submarine,  checking  accuracy  of  coefficients  when  operational 
data  is  available,  and  research  in  dasualty  situations. 


NAVTRADEVCEN  68-C-0050-1  gives  an  overall  description  of  the  equations  stucty-. 
NAVTRADEVCEN  68-0-00^0-3  presents  results  of  the  conputer  programs  using  the 
SS(N)59U  submarine  as  the  demonstration  model. 
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SECTION  I 
INTRODUCTION 


This  report  is  the  result  of  a  study  leading  to  the  determination 
of  the  optimum  sets  of  equations  of  motion,  to  be  used  with  two  general 
types  of  submarine  control  trainers. 

Two  complete  submarine  simulation  programs  are  given;  one  for  six- 
degrees-of-freedom  and  one  for  three-degrees-of-freedom.  A  number  of 
programs  are  included  to  assist  the  researcher  in  interpreting  the  results 
of  the  main  simulation  program.  A  compact  program  for  use  with  a  small 
computer  is  also  included. 

This  report  describes  the  programs,  including  listing  in  FORTRAN, 
but  does  not  tell  how  they  are  to  be  used.  It  should  be  used  in  con¬ 
junction  with  Advanced  Submarine  System  Equation  Study,  NAVTRADEVCEN 
68-C-0050-1  which  describes  the  work  performed  under  this  study. 
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SECTION  II 

PROGRAM  DESCRIPTIONS 


A,  PROGRAM  EB92Q.  SUBMARINE  SIMULATION 

1.  DESCRIPTION 

This  program  calculates  the  dynamic  changes  of  a  body's  position 
and  attitude  as  a  function  of  time.  The  vehicle  is  a  submarine  in  this 
case  but  any  vehicle  can  be  simulated  if  the  coefficients  of  the  equations 
of  motion  are  known.  The  equations  used  for  the  mathematical  model  are 
develoDed  in  "Standard  Equations  of  Motion  for  Submarine  Simulation", 

Report  25l01by  Morton  Gertler  and  Grant  R.  Hagon  of  the  Naval  Ship  Research 
and  Development  Center  in  Washington,  D.C.  Tney  are  designated  as  the 
NSRDC  Standard  Equations  and  the  terminology  in  this  program  follows  this 
report. 

The  NSRDC  Standard  Equations  cover  all  phases  of  submarine  motion 
simulation  in  six-degrees-of-freedom  including  emergency  recoveries  after 
casualties.  NSRDC  Report  2510  contains  a  brief  history,  defines  the 
mathematical  model,  discusses  the  coefficients  required,  and  sets  a 
standard  to  be  used  in  the  simulation  of  submarines.  Equations  (l) 
through  (6)  present  the  equations  of  motion  in  the  following  order: 
axial  force,  lateral  force,  normal  force,  rolling  moment,  pitching  moment, 
and  yawing  moment.  In  addition  certain  Kinematic  relations  are  given 
in  equation  (7). 

The  program  is  written  in  basic  FORTRAN  IV  for  use  on  any  digital 
computer  vrith  a  FORTRAN  compiler.  It  occupied  20K  words  when  run  on 
an  I  EM  360/iiO  computer.  Program  results  are  printed  as  a  function  of 
time  and  individual  parameters  can  be  plotted  if  associated  CALCOMP 
plotter  software  is  available. 

Figure  1  is  a  block  diagram  showing  the  general  outline  of  the 
Drograr.  and  the  subroutines  used,  A  number  of  different  options  are 
available  to  the  propram  user.  They  are  listed  below. 

a.  Programmed  control  surface  and  thrust  values. 

1,  Climbing  turns  -  fixed  elevator  and  rudder  deflection; 
for  climb  or  turn  (without  autopilot): 

2,  Meander  or  overshoot 

3,  Modified  climbing  turns  -  surfaces  deflected  at  controlled 
rates  to  soecified  values. 

1.  Flat  tum  (with  autopilot) 

Climbing  impulse 

•  Superscript  msabers  indicate  references 
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6.  Turning  impulse  (with  autopilot) 

7.  Acceleration/deceleration  (with  autopilot) 

8.  Maximum  aceeleration/deceleration  (with  autopilot) 

b.  Integration  Methods 

1.  Fourth  Order  Runge-Kutta 

2.  Second  order  Adams 

3.  Second  order  non-classical 
h.  Euler 

c.  Variable  integration  step  size  (H,  or  integration  time  increment). 
This  option  allows  study  of  the  allowable  or  optimum  integration  step 
size,  H,  as  a  function  of  output  variable  accuracy, 

d.  Initial  Conditions 

The  program  will  accept  values  of  initial  conditions  for  control 
surface  positions,  speed,  attitude  and  depth.  This  allows  the  submarine 
to  be  placed  in  a  steady  state  dive,  level  flight,  etc.  at  time  zero  or 
start  of  the  computer  run.  These  inputs  are: 

UC  -  command  speed 
DR  -  rudder  position 
DS  -  stemplane  position 
DB  -  sailplane  position 

W  -  component  of  velocity  in  the  z-direction 
Q  -  angular  acceleration  component  about  the  y-axis 
THETA  -  angle  of  pitch 
Z  -  depth 

All  other  parameters  of  motion,  v,  p,  r,  y,  /tf,  x,  and  y,  can 
also  be  sat  as  initial  conditions.  These  parameters  are  usually  zero 
at  time  zero.  The  values  for  steady-state  level  flight  can  be  calculated 
with  program  ECiiTO. 

e.  Output  Options 

Any  time  interval  can  be  set  between  printing  out  the  parameters 
of  motion.  If  a  CALCOMP  plotter  is  available,  any  parameter  and  the 
control  surfaces  can  be  plotted  as  a  function  of  time  in  any  order. 

2.  SUBROUTINE  DESCRIPTIONS 

The  subroutines  utilized  by  this  program  are  shown  in  block  diagram 
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form  in  figure  1.  A  brief  description  of  each  subroutine  is  included 
for  clarification  of  operation  of  the  total  program. 

a.  INPUT  -  This  subroutine  reads  a  data  deck  specifying  program 
options,  controls  and  initial  dynamic  conditions,  and  the  particular 
coefficients  and  constants  for  the  submarine  to  be  simulated.  It  provides 
for  holding  initial  values  of  all  variables  for  use  on  a  subsequent  run. 

It  provides  for  reading  additional  cards  for  successive  runs,  and  finally 
for  exit  from  the  program  on  a  blank  card, 

b.  KUTTA  -  This  is  an  integration  subroutine  that  uses  the  Runge- 
Kutta,  Uth  order  integration  method  to  integrate  the  equations  of  motion 
over  the  time  period  required  in  accordance  with  the  equation: 

Yn  ♦  1  (D  s  Yn  CD  ♦  1/6  (K0(I)  ♦  21^  (I)  ♦  2K?  (1)  ♦  tyl)  ) 

where  K0(I)  ■  h  •  EVAL  (Yn(I)) 

K -^1)  =  h  •  EVAL  (Yn(I)  ♦  |  K0  (I)) 

K2(I)  =  h  •  EVAL  (Yn(I)  ♦  I  Ki  (I)) 

K3(I)  =  h  •  EVAL  (Ynd)  ♦  K2  (I)) 

I  =  1  to  12 

h  =  integration  time  interval 

Yn(I)  s  motion  parameter  u,  v,  etc.  at  the  nth  cycle 
EVAL  «  equation  of  motion  subroutine 

This  subroutine  takes  a  twelve-element  matrix  from  subroutine 
EVAL  corresponding  to  accelerations  and  velocities;  integrates  over  the 
interval,  h;  and  returns  twelve  new  velocities  or  positions.  (Corresponding 
to  u,  v,  w,  p,  q,  r,  0,vy}  0,  x,  y,  z),  I  runs  from  1  to  12  to  cover  all 
the  terms  to  be  integrated.  The  EVAL  subroutine  is  entered  four  times  in 
order  to  calculate  the  four  K’s  since  each  one  is  dependent  on  the  iaot 
one.  The  integration  method  is  started  by  zeroing  the  working  storage 
during  the  first  pass  through  the  subroutine. 

The  mathematical  reasoning  behind  this  particular  algorithm  is  given 
in  F.B,  Hildebrand,  "Introduction  to  Numerical  Analysis",  McGraw-Hill 
1956,  page  237. 

c.  CONTR  -  This  subroutine  allows  various  submarine  control  manuevers 
to  be  selected  that  are  used  in  submarine  research  studies.  The  subroutine 
varies  the  control  surfaces  during  the  run  to  allow  meander,  submerged 
turns,  overshoot,  acceleration,  etc,  to  be  made.  The  block  diagram  of 
figure  2  outlines  the  control  subroutine,  in  all  controls,  the  variable 
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TLIM  defines  the  total  time  period  of  the  runs  in  seconds. 

Constant  controls  (NS  =  0)  -  The  submarine  will  maintain  the  settings 
of  command  speed,  (UC),  elevator  positions  (DB  and  DS),  or  rudder  position 
(DR)  that  were  entered  in  the  program  as  initial  conditions.  Thus,  runs 
such  as  a  steady  turn  without  autopilot,  climbing  turn,  acceleration 
without  autopilot,  etc,,  can  be  made. 

Meander  or  Overshoot  (NS  =  1)  -  This  control  allows  the  submarine 
to  maintain  a  period  of  level  flight,  followed  by  negative  elevator 
movement  at  a  specified  rate  to  a  minimum  (largest  negative  value)  elevator 
position  as  shown  in  figure  3.  It  will  hold  this  angle  until  the  submarine 
pitch  angle  reaches  a  particular  value,  SWMAX,  at  which  time  the  elevators 
are  reversed  in  position  at  a  specified  rate  to  a  desired  new  position. 

The  value  of  this  position  is  determined  by  the  type  of  run  desired;  for 
meanders,  DELTMI  =  DSQ  and  for  overshoot,  DELTMA  -  DSQ  equals  DELTMI  -  DS0 
in  magnitude.  The  program  allows  variation  of  the  various  control  parameters 
of  this  maneuver.  These  ares 


TIME  -  period  of  initial  steady  state  performance,  or  constant  input 
terms. 

Rl  -  negative  rate  of  change  of  elevator  position. 

DELTME  -  maximum  negative  swing  of  elevator  (must  be  more  negative 
than  DSq,  elevator  position  at  zero  time). 

SWMAX  -  maximum  dive  angle,  execute  pitch  angle  allowed  prior  to 
turning  elevators  more  positive.  The  time  at  which  this 
occurs  is  referred  to  as  TL. 

R2  -  positive  rate  of  change  of  elevator  position. 

DELTMI  -  maximum  position  to  which  elevators  are  moved  in  the 
positive  direction. 

These  input  control  parameters  can  be  varied  to  achieve  Meander,  Overshoot, 
or  other  desired  combinations  of  a  dive  to  a  maximum  submarine  pitch  ancle 
and  subsequent  elevator  change. 

Flat  turn  (NS  «  3)  -  This  is  a  turn  accomplished  by  rudder  movement 
in  four  steps  to  the  maximum  deflection,  DRMAX.  Each  step  is  accomplished 
at  a  decreasing  rate  of  change  of  rudder  position  as  a  function  of  the 
final  maximum  deflection,  as  shown  in  table  1,  This  schedule  represents 
the  delay  in  rudder  position  in  the  actual  submarine. 


TABLE  1.  RUDDER  POSITION  SCHEDULE 


Period 

Rudder  Position 
Rate  of  Change 

Ra diana/sec 

Maximum  Rudder 

Position 

Fraction  of  final  position.  DRMAX 

1 

.06726 

.85 

2 

.01336 

.93 

3 

.006 

.97 

b 

. 000106b 

1.0 

lb 
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Figure  3.  Graph  of  Overshoot  Control 


The  program  allows  selection  of  the  final  rudder  position,  DRMAX. 
During  this  maneuver,  the  autopilot  is  actuated  to  maintain  nearly  lovel 
flight. 

The  autopilot  is  utilized  in  the  control  subroutine  for  certain 
maneuvers,  such  as  flat  turns,  acceleravion,  etc.  This  control  is  auto¬ 
matic  when  used  through  selection  of  the  desired  control  routine.  The 
bow  and  stem  planes  are  moved  to  attempt  to  maintain  constant  depth  at 
any  speed  or  turn  condition.  The  elevators  are  positioned  in  accordance 
with  equation  (8). 

DS  «  DB  •  ,008  (ZC-Z)  ♦  3.5  (0)  ♦  .012  (U5ii»e-WCGSQ)  ♦  2.0q  (8) 

Where i 

03  s  sailplane  angle,  radians 
06  -  stemplane  angle,  radians 
ZC  «  command  depth,  feet 
Z  •  depth,  feet 
9  s  pitch  angle,  radians 
u  »  forward  body  velocity,  ft/sec 
w  •  normal  body,  velocity,  ft/sec 
q  *  pitch  rate,  redians/sec 
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Position  and  rate  damping  in  both  depth  and  pitch  are  utilized.  D3  and 
DB  are  limited  to  35  degrees  by  the  programing. 

Climbing  turn  (NS  a  2)  -  This  is  a  complex  maneuver  utilizing  the 
available  inputs  of  meander  and  flat  turn  above,  with  the  autopilot 
inoperative.  All  the  input  data  of  each  of  these  two  other  controls  is 
required  and  the  resultant  submarine  maneuver  can  obviously  be  rather 
unique. 

DS  -  impulse  (NS  s  1)  -  This  control  allows  an  elevator  impulse  to 
be  applied  to  the  submarine  for  the  first  integration  cycle  in  order  to 
evaluate  response  frequency  and  damping  factors.  The  initial  conditions 
(UC,  w,  *<.  ,  THETA,  and  3)  are  entered  as  required.  These  are  usually  for 
level  flight  at  some  particular  speed.  The  impulse  value,  elevator  position 
(DS),  is  also  entered.  The  final  value  of  elevator  position,  DSF,  is 
specified.  This  value  is  the  elevator  position  for  level  flight  at  the 
selected  speed. 

A  useful  addition  of  the  program  for  elevator- impulse  control  is  the 
computer  output  of  punched  cards  of  the  submarine  pitch  angle  versus 
time.  These  are  punched  in  2EL5.7  format  (THETA,  TIME)  from  T0  to  TLIM. 

The  cards  are  useful  in  other  programs  associated  with  submarine  response, 
described  elsewhere  in  this  report.  Most  associated  programs  are  based  on 
cards  punched  at  two-second  intervals.  To  achieve  this  the  input  value  of 
integration  interval,  H,  must  be  0.25  seconds.  This  punch  card  data  will 
be  received  for  any  of  the  integration  methods  selected  through  the  option, 
INTSW.  It  is  suggested  that  INTSW  be  set  to  'O'  for  impulse  runs  because 
the  accuracy  of  other  integration  methods  does  not  match  the  accuracy  of 
the  Runre  Kutta  method  when  calculating  the  violent  initial  maneuvers 
excited  by  an  impulse  run. 

The  value  of  DSF,  after  the  impulse,  is  usually  greater  than  zero. 

This  is  the  elevator  position  required  to  maintain  level  flight  at  the 
steady-state  speed  of  the  submarine. 

DR  -  impulse  (N3  =  5)  -  This  control  is  identical  to  DS  -  impulse 
except  that  rudder  position  is  used  for  this  type  run.  In  addition  the 
final  rudder  position  (DRF)  is  usual] y  zero  rather  than  a  small  finite 
value  as  for  elevator  impulse. 

Acceleration/Deceleration  Control  (NS  =  6)  -  This  option  takes  the 
submarine  at  rest,  at  any  depth;  accelerates  at  command  speed  increments 
of  five  knots  over  each  time  increment,  TIME  (an  input  value)  to  25  knots; 
and  then  decelerates  in  the  same  command  speed  increments.  The  autopilot 
control  is  activated  in  this  run  to  maintain  the  submarine  in  nearly  level 

night. 

Maximum  Acceleration/Deceleration  Control  (NS  s  7)  •  This  control 
accelerates  a  submarine  at  rest,  at  input  depth,  3,  by  applying  a  command 
speed  of  25  knots.  This  command  speed  is  held  for  TIME  seconds  (inout 
value)  which  may  be  varied  to  assure  steady  state  conditions.  The  sub¬ 
marine  is  then  slowed  down  by  reduction  of  command  speed  (UC)  to  zero  for 
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the  sane  length  of  time.  The  autopilot  control  is  used  for  level  flight, 

d,  EVAL  -  This  subroutine  calculates  the  right  hand  side  of  the 
equations  of  motion.  The  values  are  updated  after  each  pass  through  the 
integration  routine;  Kutta.  It  follows  the  mathematical  model  given  in 
Table  1. 

e,  PLOTROU  -  This  subroutine  transfers  the  run  number,  data  names, 
and  calculated  points  for  storage  on  magnetic  tape  and  subsequent  plot 
of  the  variables  on  a  California  Computer  plotter.  This  subroutine,  in 
addition,  calls  out  the  following  subroutines  that  are  peculiar  to  Cal 
Camp  software: 

LINE  PLOTS  PLOT  WHERE 
AXIS  NUMBER  SYMBOL  SCALE 

These  are  all  Cal  Comp  proprietary  subroutines  and  thus  cannot  be 
supplied  with  this  contract.  If  this  program  is  run  on  a  computer  with 
the  source  decks  supplied  by  GAC  and  CiL  Comp  plotting  software  is  avail¬ 
able  minor  program  adjustments  may  be  necessary  to  allow  exact  plotting 
as  at  GAC. 

If  this  software  is  not  available,  three  options  are  open: 

(1)  At  GAC,  the  360/1*0  computer  will  operate  without  the  subroutines 
above,  provided  no  plots  are  called  for  by  leaving  variable  IPLOT  s  0  on 
the  first  input  data  card.  The  linkage  editor  map  at  GAC  shows  "Unresolved 
entry  message".  However,  the  program  still  runs  without  plot.  The  program 
may  run  similarly  on  other  computers, 

(2)  If  this  does  not  function  on  the  computer  used,  dummy  subroutines 
for  these  variables  can  be  added  to  the  programs.  The  program  can  then 
call  them  as  at  present  and  return.  Leave  IPLOT  s  0. 

(3)  Finally,  the  reference  to  all  plotting  subroutines  could  be 
removed  from  the  program. 

f,  INVER2  -  This  is  a  common  library  routine  to  invert  a  matrix. 

g,  MATMPY  -  This  subroutine  takes  the  inverted  matrix  from  INVER  2 
and  multiplies  to  calculate  values  of  ft,  ft,  ft,  f>,  q,  and  r. 

h,  INTEG  -  This  routine  includes  the  three  additional  optional 
integration  methods.  These  include: 

(l)  INTSW  s  l,  Second  order  Adams 
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(2)  INTSW  =  2,  Second  order  non-classical 

Ynn  -y*  * 

(3)  INTSW  =  3,  Euler  y  _  \/  i  y 

'n  * ,  *  n  'r\ 

where  Y  is  the  variable  to  be  integrated 

n  is  the  number  of  times  the  variable  was  integrated 

h  is  the  integration  time  period. 

i.  EVAL  1  -  This  subroutine  solves  the  right  hand  side  of  the  equa¬ 
tions  of  motion  from  data  from  each  pass  thru  the  integration  routine, 

INTEG.  It  follows  the  mathematical  model  given  in  table  1, 

3.  INPUT  DATA  DECK 

This  section  describes  the  data  deck,  defines  the  FORTRAN  variables 
in  terms  of  the  equations  of  motion  defined  in  the  mathematical  model,  and 
shows  how  to  perform  the  various  kinds  of  simulated  submarine  operations 
allowed.  The  coefficients  referred  to  here  are  those  included  in  reference, 
"Standard  Equations  of  Motion  for  Submarine  Simulation".  The  coefficients 
are  unique  for  each  type  submarine.  These  values  are  program  inputs  so  that 
the  program  can  be  used  for  the  study  of  diffexsnt  types  of  submarines.  The 
input  deck  should  follow  table  2  exactly.  Figure  U  shows  a  typical  input 
data  form  for  EB920. 


TABLE  2.  INPUT  DATA  DECK,  PROGRAM  EB920 


Card 

Column(s) 

Format 

""  1 

Description 

Control  Flags 

1 

1-5 

15 

NGS.  The  number  of  good 
integration  steps  required 
before  step  size  is  increased. 
Blank  if  variable  step  size  is 
not  used.  (Note  right  adjust 
all  integer  values) 

1 

6-10 

15 

NPNT.  Data  will  print  out  at  Tq 
and  each  NPNT—  integration  step 
(Each  2  sec  if  NPNT  =  8  and  H  « 
.25  seconds) 

1 

11-15 

15 

IPLOT.  To  exercise  plot  option, 
IPLOT  1.  Leave  blank  (zero) 
for  no  plots. 
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TABLE  2.  INPUT  DATA  DECK,  fROCRAM  EB920  (cont.) 


Coluinn(s) 

Format 

Description 

16-20 

15 

IRUN.  Identification  number 
for  individual  rune.  If  IRUN  | 
=  0  a  normal  exit  is  made  j 

21-25 

15 

NPLT.  Data  will  plot  at  T0 
and  each  NPLT—  integration 
step. 

5 

26-30 

15 

i 

IOPT.  This  option  will  allow 
changing  any  one  or  more  of 
the  input  values  for  a 
succeeding  run  without  putting  J 
in  all  the  other  values.  IOPT  ; 
*  1  to  exercize;  blank  for  no 
selection.  Another  run  may  : 

still  follow,  for  IOPT  -  0,  ! 

but  all  input  data  cards  must  ' 
be  read  again.  More  informa¬ 
tion  on  this  variable  is 
included  at  card  33. 

31-35 

15 

ICYC.  Number  of  integration 
cycles  per  H,  time  increment. 
ICYC  =  U  for  Kutta  Integra-  ; 

tion  (INTSW  s  0),  «  1  for  all  j 
other  integration  methods. 

36-UO 

15 

NS.  This  variable  selects 
the  type  of  submarine  control 
in  CCNTR  subrou  ne: 

- 

NS  s  0  Fixed  controls  per 
initial  conditions 

NS  =  1  Overshoot,  meander,  etc, 
NS  =  2  Special  climbing  turn 

NS  =  3  Flat  turn  (with  auto¬ 
pilot) 

NS  =  U  Elevator  impulse 

NS  -  5  Rudder  impulse  (with 
autopilot) 

NS  ■  6  Acceleration/deceler¬ 
ation  (with  autopilot) 

NS  s  7  Maximum  acceleration/ 
deceleration  (with 
autopilot) 

U1-U5 

15 

INTSW.  This  variable  selects 
its  type  of  integration  to  be 
used. 

INTSW  =  0  Runge-Kutta 
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TABLE  2.  INPUT  DATA  DECK,  PROGRAM  EB920  (cent.) 
Card  Column(3)  j  Format  Description 


INTSW  =  1  2nd  order  Adams  ; 
INTSW  s  2  2nd  order  Non- 
classical 
INTSW  =  3  Euler 

Card  must  be  here  (olank), 
even  if  no  plots  are  required. 
HOC  (I),  1=2,16.  Value  of  I  , 
defines  which  variable  will  be  | 
plotted  against  time.  Sequence  ! 
defines  order  of  plot  on  plot-  ; 
ting  paper  as:  ; 


Order  of  plotting 

Plot  Variable: 

ILOC  (2)  -  U,  component  of 
velocity  in  the  x-directicn, 
feet/second. 

HOC  (3)  -  V,  component  of 
velocity  in  the  y-direction,  j 
feet/second. 

HOC  (li)  -  W,  component  of 

velocity  z-direction,  feet/ 

second.  I 

HOC  (5)  -  P,  angular  velocity  ! 

component  about  the  x-axis,  | 

radians/second  I 

HOC  (6)  -  Q,  angular  velocity  ; 

component  about  the  y-axis,  : 

radians/second  | 

HOC  (7)  -  R,  angular  velocity 

component  about  the  z-axis 

radians/second 

HOC  (8)  -  TO  ETA  (0),  pitch 

angle,  radians 

ILOC  (9)  -  PSI  ( y  ),  yaw 

angle,  radians 

HOC  (10)  -  PHI  (0),  roll 

angle,  radians 

ILOC  (11)  -  X,  coordinate  j 
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TABLE  2.  INPOT  DATA  DECK,  PROGRAM  EB920  (cont.) 


Card 

Colunvn(s) 

Format  j 

Description 

! 

i 

i 

! 

1 

j 

1 

{ 

\ 

1 

1 

1 

i 

j 

j 

point  of  sub  position,  feet  j 

HOC  (12)  -  Y,  coordinate  j 

point  of  sub  position,  feet 

HOC  (13)  -  Z,  coordinate 

point  of  sub  position,  (depth),  ; 

feet 

ILOC  (lli )  -  DR,  rudder  position, 
radians 

ILOC  (15)  -  DS,  stern  elevator 
position,  radians 

HOC  (16)  -  DB,  bow  elevator 
position,  radians 

Timing 

i 

i 

1 

3 

1 

i-io  i 

i 

\ 

no.  5 

TO,  starting  time,  seconds 
(usually  zero) 

3 

i 

! 

11-20  i 

1 

i 

1 

F10.5 

HO,  initial  integration  time  \ 

increment  (step)  size.  If  DH 
is  zero,  this  step  size  will  be 
used  for  the  entire  run. 

3 

21-30 

no.  5 

DH,  factor  by  which  the  step 
size  is  modified.  If  DH  is  2, 
the  step  size  is  doubled  or 
halved  as  required. 

3 

31-Uo 

no.5 

HMAX,  maximum  step  size  allowed 

3 

1*1-50 

no.  5 

HMB1,  minimum  step  size  allowed 

3 

i 

! 

1 

51-60 

no.5 

' 

FCT,  a  factor  which  causes  the 
error  estimate  corresponding  to 
the  next  larger  step  size  to  be 
overestimated.  This  reduces 
time-consuming  premature  in¬ 
creases  in  step  size.  Typical 
value  is  1.2. 

3 

61-70 

no.5 

TLIK,  time  of  run,  seconds 

h 

1-80 

8no.5 

TL  (I),  U,  V,  W,  P,  Q,  R,  «,  vp  .! 
Tolerance  array  for  variable 
integration  step  size.  Allow¬ 
able  deviation  of  each  of  these 
parameters  at  any  point  calcu¬ 
lated.  Card  must  be  present 
even  if  variable  step  size  is 
not  used 
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TABLE  2.  INPUT  DATA  DECK,  PROGRAM  EB920  (cont.) 


Card  | 

Column(s)  ( 

Format 

Description 

5  1-UO 

Initial  Conditions  Array 

W10.5  ! 

♦ 

i 

TL  (I),  0,  X,  Y,  Z.  Allowable 
deviation  of  these  parameters. 

6  ! 

1-10  i 

! 

F10.5 

Y(l),  U,  velocity  in  x-direction, 
feet/second 

6  : 

11-20  j 

1 

F10.5 

Y(2),  V,  velocity  in  y-direction^ 
feet/second  t 

6  : 

21-30 

k 

F10.5 

Y(3),  W,  velocity  in  z-directionj 
feet/s econd 

6  3 

3i— uo  1 

F10.5 

Y(U),  P,  velocity  about  x-axis, 

t 

i 

i 

radians/second  i 

6  ! 

Li-50 

Flo. 5 

f 

Y(5),  Q,  velocity  about  y-axis,  ! 

I 

J 

radians/second 

6 

51-60 

Flo.  5 

Y(6),  R,  velocity  about  z-axis,  ' 

1 

f 

radians/second 

6 

61-70  ! 

F10.5 

Y(7),  THETA,  pitch  angle, radians  J 

i 

6 

71-80 

F10.5 

Y(8),  PSI,  yaw  angle,  radians  j 

7 

1-10 

F10.5 

Y(9),  PHI,  roll  angle,  radians  | 

7 

11-20 

Flo.  5 

Y(10),  X,  coordinate  point  of 
sub  position,  feet 

7 

21-30 

F10.5 

Y(ll),  Y,  coordinate  point  of  | 

sub  position,  feet  1 

7 

Coefficient  Cards 

31-UO 

! 

F10.5 

Y(12),  Z,  coordinate  point  of 
sub  position  (depth),  feet 

8 

1-80 

8F10.5 

XQQ,  XP.1,  XRP,  XUD,  XVR,  XWQ, 

xuu,  xvv 

9 

1-80 

8F10.5 

XWW,  XDRDR,  XDSOS,  XDBDB,  XWE, 
XWWE,  XDRDRE,  XDSD3E 

10 

1-80 

8F10.5 

YRD,  YPD,  YPAP,  YPj,  YjR,  YVD, 

YVQ,  YWP  1 

11 

1-90 

8F10.5 

YWR,  YR,  YP,  YARDR,  Y7AR,  Y1TR,  J 

22 
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TABLE  2.  INPUT  DATA  DECK,  fctOGRAM  EB920  (cont.) 


Card 

ColumnCs) 

Format 

Description 

! 

!  ! 

1  ; 

YV,  YVAV  \ 

12  ! 

1-80 

i 

8F10.5 

YVW,  YDR,  YRE,  YVE,  YVAVE,  YDRE  ' 

* 

13 

!  f 

1-80 

8F10.5 

,  ZQD,  ZPP,  ZRR,  ZRP,  ZWD,  ZVR,  j 
|  ZVP,  ZQ  f 

lb 

1-80 

8F10.5 

ZAQDS,  ZWAQ,  ZSTR,  ZW,  ZWAW,  ZAWj 
ZWW,  ZW  1 

15  ! 

1-80 

8F10.5 

ZDS,  ZDB,  ZQE,  ZWE,  ZWAWE,  ZDSE 

16 

i 

1-80 

i 

! 

8F10.5 

AKPD,  AKRD,  AKQR,  AKPQ,  AKPAP, 
AKP,  AKR,  AKVD 

17  | 

1-80 

i 

8F10.5 

AKVQ,  AKWP,  AKWR,  AKSTR,  AKV, 
AKVAV,  AKVW,  AKDR 

18 

1-80 

8F10.5 

AKSTRE 

19 

1-80 

8F10.5 

AMQD,  AMPP,  AMRR,  A MRP,  AMQAQ, 
AMWD,  AMVR,  AMVP 

20 

1-80 

8F10.5 

AMQ,  AMAQDS,  AMAWQ,  AMSTR,  AMW, 
AMWAW,  AMAW,  AMWW 

21 

1-80 

|  8F10.5 

AMW,  AMDS,  AMDB,  AMQE,  AMWE, 
AMWAVffi,  AMDSE 

22 

1-80 

8F10.5 

ANRD,  ANPD,  ANPQ,  ANQR,  ANRAR, 
AMD,  ANWR,  ANWP 

23 

1-80 

8F10.5 

ANVQ,  ANP,  ANR,  ANARDR,  ANAVR, 
ANSTR,  ANV,  ANVAV 

2h 

1-80 

8F10.5 

ANVW,  ANDR,  ANRE,  ANVE,  ANVAVE, 

Submarine  Constants 


11-20 

21-30 

31-UO 


F10.5 

F10.5 
F10.5 
F10. 5 


ANDRE 


TX,  moment  of  inertia  about  the  ; 
x-axis,  slug-ft2 

j 

IY,  moment  about  y-axis,  slug-ft* 

IZ,  moment  about  z-axis,  slug-ft2 

IXY,  product  of  inertia  about 
xy-axis,  (slug-ft2)2 


23 
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TABLE  2.  INPUT  DATA  DECK,  FROGRAM  EB920  (cont.) 


j  Card 

Column( s ) 

|  Format 

Description 

!  « 

ia-5o 

FLO.  5 

IXZ,  product  of  inertia  about 
xz-axis,  (slug -ft2)2 

25 

51-60 

FLO.  5 

IYZ,  product  of  inertia  about 
vz-axis,  (slug-ft2)2 

26 

i 

i 

1-10 

FLO.  5 

CW,  weight  of  submarine,  includ¬ 
ing  water  in  free- flooding  space, 
pounds 

26 

11-20 

FLO.  5 

CB,  buoyancy,  pounds 

26 

< 

21-30 

FLO.  5 

UC,  initial  command  speed,  feet/ 
second 

26  i 

31-1*0 

FLO. 5  ■ 

XB,  x-component  of  center  of  , 

buoyancy,  feet 

26 

1*1-50 

FLO.  5 

YB,  y-component  of  center  of 
buoyancy,  feet  ’ 

*  i 

51-60 

flo.5 

! 

ZB,  z-component  of  center  of  ; 

buoyancy,  feet  j 

27 

1-10 

no.  5 

DR,  initial  value  of  rudder  ! 

position,  radians  j 

27 

11-20 

Flo.  5 

J 

DS,  initial  value  of  stern 
elevator  position,  radians 

27 

21-30 

FLO.  5 

DB,  initial  value  of  bow  j 

elevator  position,  radians  1 

27 

31-UO 

FLO.  5 

RHO,  density  of  sea  water,  | 

slugs/feet^  I 

27 

ia-5o 

FU0.5 

AL,  submarine  length,  feet  j 

27 

51-60 

FLO.  5 

1 

AM,  submarine  mass,  including 
water  in  free  flooding  soace, 
slugs 

28 

1-10 

F10. 5 

DRMAX,  maximum  rudder  position 
(movement),  radians 

28 

11-20 

FI  0.5 

ETAHIC*^  -high),  upper  reference 
value  of  'C/'JKAO,  dimensionless 

28 

21-30 

FLO. 5 

STALO^ -low),  lower  reference 
value  of  dC/UNA.G,  dimensionless 

21 
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TABLE  2.  INPUT  DATA  DECK,  HIOGRAM  EB920  (cont.) 


i  Card 

f  - 

1  Column(s)  Format 

_ k _ 

Description 

28 

3l4i0 

F10.5. 

All,  value  of  a.  for  ETA  ETAKI 

!  28 

iil-50 

Flo. 5 

A12,  value  of  b^  for  ETA  ETAHI  j 

!  28 

51-60 

F10.5 

A13,  value  of  c^  for  ETA  ETAHI 

J  29 

1-10 

F10.5 

A21,  value  of  ai  for  ETALO 

ETA  ETAHI  i 

1 

29 

11-20 

F10.5 

t 

A22,  value  of  for  ETALO 

ETA  ETAHI  j 

{ 

29 

21-30 

Flo.  5 

A23,  value  of  c^  for  ETALO 

ETA  ETAHI 

29 

31— UO 

F10.5 

A31,  value  of  for  ETA  ETALO 

29 

iii-5o 

EL0.5 

A32,  value  of  for  ETA  ETALO 

29 

51-60 

Fio.5 

A33,  value  of  c i  for  ETA  ETALO 

30 

• 

1-10 

F10.5 

XG,  x-component  of  center  of 
gravity,  feet 

30 

11-20 

no.  5 

IG,  y-component  of  center  of 
gravity,  feet 

30 

» 

1 

21-30 

F10.5 

ZG,  z-component  of  center  of 
gravity,  feet 

j  Surface  Control  Schedule 

♦ 

i 

31 

1-10 

Flo. 5 

i 

TIKE,  various  periods  of  time  j 
depending  on  NS  in  control  j 
routine,  seconds  j 

1 

NS  TIME  | 

i 

0,2,3,  Not  used  j 

ii,5  | 

1  Initial  steady  state  ! 

period  (See  fig.li)  j 

\ 

1 

6  Period  of  constant  > 

application  of  each 
command  speed 

7  Period  of  constant 

annlication  of  each 

25 
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TABID  2.  INPUT  DATA  DECK,  PROGRAM  EB920  (cont.) 


j  Card  ! 

Column (  s ) 

Format 

Description 

i 

i 

» 

command  speed  ; 

i  31 

i 

i 

r 

; 

11-20 

fio.5 

I 

KL,  negative  rate  of  change  of 
elevator  position,  radians/sec-  ' 
ond  during  meander  runs  (NS  » 

1),  radians/second  (See  fig.U) 

31 

1 

i 

i 

i 

f 

1 

21-30 

i 

no.  5 

DriTMA,  maximum  negative  swing 
oi.  elevator  (must  be  more  nega-  : 
tive  than  DS,  initial  condition): 
during  meander  runs  (NS  =  l), 
radians  (See  fig.  lj)  ’’ 

31 

31— UO 

no.5 

SWMAX  (O'),  execute  pitch  angle, 
maximum  submarine  dive  angle 
during  meander- type  run  (NS  =  1), 
before  turning  elevators  to  a  | 

more  positive  value,  radians.  ! 

31 

a-5  o 

no.  5 

Rl,  positive  rate  of  change  of  ■ 
elevator  position  after  subma-  j 
rins  reaches  0',  radians/second  j 
(See  figure  U)  : 

i 

31 

5l-6o 

no.5 

DELTMI,  maximum  position  to 
which  elevators  are  moved  during 
,R2*  change,  radians  (See  fig.b) 

31 

61-70 

no.5 

DSF,  final  value  of  elevator  j 

position  during  D3-impulse  run 
(NS  «  2),  radj  ans 

31 

Additional  R 

71-80 

un  Controls 

• 

no.5 

DRF,  final  value  of  rudder 
position  during  DR-impulse  run 
(NS  *  5),  radians 

If  I0PT  was  "O"  on  card  1  of 
the  last  data  deck,  card  32 
can  be  either  blank  for  a  normal 
exit  or  card  1  of  a  new  data 
deck  for  additional  runs.  If 
IOPT  =  F  on  card  1  of  the  last 
data  deck,  see  below. 

3? 

1-5 

15 

' 

IP.'JN,  run  numoers, 

IRUN  *  0  ( ; 1  an ..  card)  a  new 
data  deck  is  read,  A  blank 
card  at  the  start  of  a  data 
deck  resul*?  in  a  normal  exit 
so  two  blank  c,.rbs  at  the  end 
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TABLE  2.  INPUT  DATA  DECK,  ffiOGRAM  EB920  (cont.) 


■r 


Card 

Column(s) 

Format 

Description 

will  always  end  the  run. 

IRUN  ■  Integer,  Use  as  new 
run  number  and  continue  reading 
cards  below. 

33 

1-5 

15 

NDEX,  common  location  for  para¬ 
meter  to  be  changed.  Tables  3 
and  1*  show  the  variable  names 
versus  the  common  locations, 
NDEX. 

33 

11-20 

Flo. 5 

VALUE,  new  value  of  parameter 
changed  in  columns  1-5  of  this 
card. 

33  ♦  n 

1-20 

15,  5X 
F10.5 

Repeat  card  33  as  desired. 

33  ♦  n  ♦  1 

- 

Blank 

Start  new  run  after  all  changes 
have  been  made. 

PUNCHING  INSTRUCTIONS 
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WRITTEN  AS: 
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TABLE  3.  EB920,  COMMON  LAYOUT  INDEX  (cont. ) 


Term  j 


Q 

R 

9 


X 

Y 

Z 

TIME 

R1 

DELTMA 

3WMAX 

R2 

DELTMI 
DSF 
DRF 
I  CYC 
N5 
INTSW 
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TABLE  1*.  EB920,  COMMON  LAYOUT,  ALPHABETICAL 


Location 

Term 

Location 

Term 

Location 

Term 

Location 

Term 

17b 

All 

195 

I 

LOC(IO) 

170 

M 

131 

NRD 

175 

A12 

196 

ILOC(ll) 

117 

MAQDS 

11*9 

IRE 

!  176 

A13 

197 

IL0C(12) 

122 

MAW 

228 

NS 

177 

A21 

198 

IL0C(13) 

118 

MAWQ 

11*1* 

N.3TR 

■'  178 

A22 

199 

ILOC(lii) 

126 

MDB 

11*5 

NV 

179 

A23 

200 

IL0C(15) 

125 

MDS 

11*6 

.WAN 

i  180 

A31 

201 

IL0C(l6) 

130 

MDSE 

l5l 

NVAVE 

j  181 

A32 

229 

INTSW 

109 

MPP 

136 

NVD 

|  182 

A33 

20U 

I  OPEN 

116 

MQ 

150 

NVE 

j  160 

CB 

206 

I  OPT 

112 

MQAQ 

139 

NVQ 

!  159 

cw 

202 

IPLOT 

108 

MQD 

11*7 

NV// 

;  167 

DB 

203 

I  RUN 

127 

MOE 

3  38 

NWP 

221 

DELTMA 

20 

IS1 

111 

MRP 

137 

NWP. 

221 

DELTMI 

30 

ISW2 

no 

MRR 

210 

P 

i  h 

DH 

153 

IX 

119 

M3TR 

215 

PHI 

165 

DR 

156 

IXY 

115 

MVP 

211* 

PS  I 

226 

1 

DRF 

157 

IXZ 

Ilk 

MVR 

211 

Q 

171 

DRMAX 

15U 

IY 

12U 

mvv 

212 

R 

166 

; 

DS 

158 

IYZ 

120 

m 

168 

RHO 

225 

| 

DBF 

155 

IZ 

121 

MWAW 

23 

’  RH0L2 

28 

| 

ETA 

106 

KDR 

129 

MWAWE 

21* 

i  RH0L3 

172 

j 

ETAHI 

96 

KP 

113 

MWD 

?5 

j  RHOLl* 

173 

ETAL9 

95 

KPAP 

128 

MWE 

26 

RH0L5 

29 

! 

ETA  Ml 

91 

KPD 

123 

MWW 

220 

:  Ri 

1  5 

i 

FCT 

9l* 

kp; 

19 

N 

223 

j  R2 

1  l 

H 

93 

KQR 

ll*3 

NAVR 

222 

j  owmax 

!  2 

HMAX 

97 

KR 

112 

NARDR 

213 

i  THETA 

;  3 

HMIN 

92 

KHD 

11*6 

NDR 

219 

*  TIME 

.  227 

I  CYC 

102 

!  KSTR 

152 

MORE 

6 

;  TL(1) 

186 

ILOC(l) 

107 

i  K3TRE 

18 

uG3 

7 

;  TL(2) 

•  187 

IL0C(2) 

103 

KV 

UiO 

np 

8 

■  TI,(3) 

188 

IL0C(3) 

1  ioU 

I  KVA  V 

132 

NPD 

9 

:  Tl  (1* ) 

;  189 

aoc(M 

98 

|  KVD 

205 

NPLT 

10 

i  TL(5) 

190 

IL0C(5) 

;  99 

1  KVC 

f  21 

NPNT 

11 

1  TL(6) 

191 

noc(6) 

I  105 

j  K  W 

i  133 

NPj 

.12 

!  TL  ( 7 ) 

192 

IL0C(7) 

:  100 

KWP 

:  13u 

k;r 

13 

TL(8) 

193 

IL0C(8) 

i  101 

\  kwr 

i  ll*l 

NR 

il* 

Tl.  (9 ) 

19l* 

IL  VC(9) 

!  169 

!  L 

•  135 

NRAR 

t  5 

”1,(10) 
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a.  OUTPUT  DATA 

a.  Printout  -  This  program  will  print  out  titled  numbered  pages 
with  the  variable  as  shown  in  table  5.  All  input  values  are  printed  out 
at  the  start  of  the  run  as  shown  in  figure  5. 


TABLE  5.  OUTPUT  VARIABLES,  PROGRAM  EB?20 


Variable 

Format 

Units  Description  j 

;  u 

0.3.6 

feet/second 

i 

Velocity  component  in  the  i 

x-direction  1 

l 

V 

! 

03.6 

feet/second 

Velocity  component  in  the  ; 

y-direction  j 

W 

03.6 

feet/second 

j 

Velocity  component  in  the  I 

z- direction 

P 

03.6 

radians/second 

Velocity  about  x-axis 

Q 

03.6 

radians/second 

Velocity  about  y-axis 

R 

03.6 

radians/second 

Velocity  about  z-axis 

THETA 

03.6 

radians 

Pitch  angle 

PSI 

03.6 

radians 

Yaw  angle 

PHI 

03.6 

radians 

Yaw  angle 

X 

03.6 

feet 

Coordinate  point  of  sub  position 

T 

03.6 

feet 

Coordinate  point  of  sub  position 

Z 

03.6 

feet 

Coordinate  point  of  sub  position 

T 

03.6 

seconds 

Time  during  run 

H 

03.6 

seconds 

Integrating  tine  period 

All  output  variables  are  printed  as  shown  in  sample  data  sheet,  figure 
6,  This  data  is  a  function  of  the  time  of  the  run,  T,  The  frequency  of 
orlntout  is  a  function  of  NPNT,  printed  each  NPNth  integration  cycle.  If  H, 
integration  time  period  is  0.25  second  and  NPNT  £  8» 

a,  INT3W  -  0  (Runre-Kutta  integration) 

T"  *  NPNT  x  H  *  8  x  0,25  ■  0,5  seconds 

TS75  E - 

Printout  would  be  each  half  second 


f  •  <i-f  V  "  ”  SUH'A0  INF  p&r.F 
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Figure  5.  Input  Variable  Format,  EB920 
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Figure  6.  Output  Variable  Fermat,  EB920 
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b,  INTSW  =  1  (Adams  integration) 

T"  =  NPNT  x  H  s  8  x  0.25  ■  2,0  seconds 

Tc5yc  I 

Printout  would  be  every  two  seconds. 

c.  Graphical  -  This  program  can  optionally  plot  any  of  the  printed 
values  noted  in  Section  b.a  on  a  CALCOMP  plotter.  In  addition,  the 
control  parameters,  DS,  DB,  and  DR  (elevator  and  rudder  positions)  can  be 
plotted.  These  variables  are  each  plotted  (as  requested)  as  a  function 
of  time  as  shown  in  figure  7. 

5.  LISTINGS  AND  FLOW  CHART 

The  listings  and  flow  chart  for  program  EB920  are  given  in  appendix  A. 
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Figure  7.  Qrephloal  Output  KB920 
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B.  PROGRAM  ZC790.  SUBMARINE  "'DILATION,  LONGITUDINAL  FREEDOM 

1.  DESCRIPTION 

This  program  calculates  the  dynamic  changes  in  submarine  position, 
velocity,  and  attitude  as  a  function  of  time  for  longitudinal  freedom.  It 
is  very  similar  to  Program  EB920,  except  that  lateral  freedom  (rudder 
change  with  attendent  roll  and  turn)  is  not  provided  for,  Therefore,  only 
longitudinal  runs  due  to  thrust  or  elevator  changes  can  be  provided  with 
this  program. 

The  purpose  in  preparing  this  program,  in  view  of  the  existence  of 
E092O  (all  degrees  of  freedom),  is  the  shortened  computer  running  time 
for  the  abbreviated  program.  This  will  be  a  real  advantage  where  a  large 
nuntoer  of  meander,  overshoot,  or  acceleration  runs  are  required.  Figure 
8  is  a  block  diagram,  showing  the  general  layout  of  the  program  and  the 
subroutines  used.  Equation  (9)  through  (12)  give  the  mathematical  model 
used.  It  follows  "Standard  Equations  of  Motion  for  Submarine  Limitations" 
except  that  all  lateral  coefficients  have  been  removed. 

The  program  is  written  in  basic  FORTRAN  IV  for  use  on  £.ny  digital 
computer  with  a  FORTRAN  compiler.  It  occupied  6K  words  when  run  is  on 
IBM  360/1*0  computer.  Program  results  are  printed  as  a  function  of  time 
and  individual  parameters  can  be  plotted  if  associated  CALCOMP  plotter 
software  is  available. 

The  program  will  accept  values  of  initial  conditions  for  control 
surface  positions,  speed  (and  components)  attitude  and  depth.  This 
allows  the  submarine  to  be  placed  in  a  steady  state  dive,  level  flight, 
etc.,  at  time  zero  or  start  of  the  computer  run.  These  inputs  are: 


uc 

- 

consnand  speed 

DS 

- 

stem  elevator  position 

DB 

- 

bow  elevator  position 

W 

m 

component  of  velocity  in  the  z- direction 

Q 

* 

angular  acceleration  component  about  the  y-axis 
relative  to  fluid. 

THETA 

m 

angle  of  pitch 

Z 

- 

depth 

This  program  will  give  identical  results  as  tho  longitudinal  channel 
of  EB920  when  the  same  coefficients  are  used  but  the  running  time  is  one- 
eighth  and  the  space  required  is  one- third. 

2.  SUBROUTINE  DESCRIPTIONS 

The  subroutines  utilized  by  this  program  are  shown  in  block  diagram 
form  in  figure  8,  A  brief  description  of  each  subroutine  is  included 
for  clarification  of  operation  of  the  total  program. 

a.  INPUT  -  This  subroutine  reeds  a  data  deck  specifying  program 
options,  control,  and  initial  dynamic  conditions  and  the  particular 
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Figure  8.  DC7?0  Submarine  Simulation  Program,  Slock  Diagram 
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PITCH  INS  MOMENT  (10) 
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coefficients  and  constants  for  the  submarine  to  be  simulated.  It  provides 
for  holding  initial  values  of  all  variables  for  use  on  a  subsequent  run. 

It  provides  for  reading  additional  cards  for  successive  runs,  and  finally 
for  exit  from  the  program  on  a  blank  card, 

b.  INTEG  -  The  only  integration  algorithm  available  is  2nd  order 
Adams.  This  program  is  used  mainly  for  varification  runs  rather  than 
research  so  different  integration  methods  are  not  required, 

c.  EVALI  -  This  subroutine  evaluates  the  equations  of  motion  in 
accordance  with  the  mathematical  model  given  in  section  II.  B.  1,  It 

is  identical  to  the  equations  used  in  program  ZB920  except  that  the  lateral, 
roll,  and  yaw  channels  have  been  removed  and  all  longitudinal  coefficients 
using  v,  p,  and  r  have  been  set  to  zero. 

d.  CONTR  -  The  block  diagram  of  figure  9  outlines  the  CONTR  sub¬ 
routine,  This  subroutine  allows  selection  of  one  of  several  preplanned 
maneuvers  that  are  used  most  often  in  submarine  research  studies.  The 
operation  is  identical  to  that  of  the  CONTR  subrouting  in  program  ZB920 
except  that  provisions  for  moving  the  rudder  have  been  removed.  The 
variable  NS  will  set  the  desired  bow  or  sternplane  schedule  as  follows: 

NS  a  0  Constant  input  value 

NS  s  1  Meander  or  Overshoot  (figure  3) 

NS  -  2  DS  -  Impulse 

NS  s  3  Acceleration/Deceleration 

NS  =  U  Maximum  Acceleration/Deceleration 

A  useful  addition  of  the  program  for  elevator-impulse  control  is  the 
computer  output  of  punched  cards  of  the  submarine  pitch  angle  versus  time. 
These  are  punched  in  2EL5.7  format  (THETA,  TIME)  from  T0  to  TLIM.  The 
cards  are  useful  in  other  programs  associated  with  submarine  response  and 
described  elsewhere  in  this  report.  Most  associated  programs  are  based  on 
cards  punched  at  two-second  intervals.  To  achieve  this,  the  input  value 
of  integration  interval  H,  must  be  0.25  seconds  and  NPNT  must  be  eight. 

The  integration  in  ZC  790  is  performed  with  the  second-order  Adams 
method.  The  results  may  be  slightly  different  from  integration  to  that 
performed  by  the  Runge-Kutta  method  in  the  EB920  program.  This  difference 
is  magnified  for  rapidly  changing  conditions  as  prevail  in  impulse  runs. 
Therefore,  care  should  be  exercised  in  the  use  of  impulse  runs  for  this 
program,  and  comparison  made  with  the  EB920  program.  Greatest  accuracy 
will  accrue  by  the  use  of  the  Runge-Kutta  integration  of  EB920. 

The  autopilot  control  of  this  program  uses  the  identical  equation  (8) 
used  by  the  autopilot  control  in  program  EB920. 

e.  PLOTROU  -  This  is  identical  to  PLOTROU  of  EE920  except  that  the 
variables  v,  p,  r,  PHI,  PSI,  y,  and  DR  are  not  saved  or  plotted. 

3.  INPUT  DATA  DECK 


l*li 
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This  section  describes  the  input  data  deck,  defines  the  FORTRAN 
variables  in  terms  of  the  equations  of  motion  defined  in  the  mathematical 
model,  and  shows  how  to  input  data  to  perform  various  kinds  of  simulated 
submarine  operations.  The  coefficients  referred  to  here  are  those  included 
in  the  reference  "Standard  Equations  of  Motion  for  Submarine  Simulation". 
The  coefficients  are  restricted  to  those  in  X,  Z,  and  M,  corresponding  to 
those  used  in  calculating  axial  force,  normal  force,  and  pitching  moment 
on  the  submarine.  The  coefficients  in  Y,  K,  and  N  are  not  used  because 
they  affect  only  lateral  forces  and  motion  of  the  submarine.  The  input 
deck  should  follow  table  6  exactly. 


TABLE  6.  INPUT  DATA  DECK,  PROGRAM  ZC790 


Card 

Column(s) 

Format 

Description  1 

Control  Flags 

1 

1-5 

15 

NPNT.  Data  will  print  out  at 

T-  and  each  NPNT  s  integration 
step,  each  2  sec  if  NPNT  =  8 
and  H  =  ,25  seconds.  Right 
adjust  all  integer  values. 

1 

6-10 

If 

IPLOT.  To  exercise  plot  op¬ 
tion,  IPLOT  •  1.  Le've  blank 

NAVTRADEVCEN  68-C-0050-2 

_ TABLE  6.  INPUT  DATA  DECK,  PROGRAM  2C79Q  (cont.) 

Card  i  Column(s)  »  Format  Description 


1  11-15  15 

1  16-20  15 

1  21-25  15 


j  (zero)  for  no  plots. 

IRUN,  Identification  number  ’ 
for  individual  runs.  If  IRUN  =  | 
0  a  normal  exit  is  made.  j 

NPLT,  Data  will  plot  at  TQ  each! 
NPLT™  integration  step. 

j 

|  IOPT.  This  option  will  allow 
j  changing  any  one  or  more  of  the 
input  values  for  a  succeeding 
run  without  putting  in  all  the 
other  values.  IOPT  *  1  to 
exercise  ;  blank  for  no  selec¬ 
tion.  Another  run  nay  still  j 
follow,  for  IOPT  =  0,  but  all  [ 
input  data  cards  must  be  read  i 
again.  More  information  on 
this  variable  is  included  at 
card  19. 

NS,  This  variable  selects 
type  of  submarine  control  in 
CONTR  subroutine 
NS  =  0,  Fixed  control  per 
initial  conditions 
NS  »  1,  Overshoot,  meander,  ect. 
NS  -  2,  DS-impulse 
NS  =  3,  Acceleration/deceleration 
NS  =  U,  Maximum  acceleration/ 
deceleration 

Card  must  be  here  (blank)  even 
if  no  plots  are  required. 

ILOC(I)  I  «  2,8.  Value  of  I 
defines  which  variable  will 
be  plotted  against  time. 

Sequence  defines  order  of  plot 
on  plotting  pa per  as: _ 

f]  2-1  4  b  *  l] 

\CD  CD  BE!  j 

order  of  plotting 
Plot  variable* 

E0C(2)  -  U,  component  of 

velocity  in  the  X- 
_  direction,  f set/ second 
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TABLE  6.  INPUT  DATA  DECK,  PROGRAM  ZC790  (cont.) 


T 


Card 

Column(s) 

Format 

Description 

— 

3100(3)  -  W,  component  of 
velocity  in  the 
2-direction,  feet/ 
second 

HOC(U)  -  Q,  angular  velocity 

about  y-axis,  radians/ 
second 

IL0C(5)  -  theta  (8),  pitch  angle 
radians 

3LOC(6)  -  Z,  depth,  feet 

H0C(7)  -  OS,  stem  plane  posi¬ 
tion,  degrees 

H0C(8)  -  DB,  bow  plane  position 
degrees 

» 

Timing 

3 

1-10 

510.5 

TO,  starting  time,  seconds 

3 

11-20 

510.5 

HO,  integration  time  increment, 
seconds 

■ 

3 

21-30 

510.5 

• 

HIM,  time  of  run,  seconds 

Initial  conditions 

h 

1-10 

F10.5 

Y(l),  U,  velocity  component 
in  the  X-direction,  feet/second 

h 

11-20 

510.5 

Y(2),  W,  velocity  component  in 
3-direction,  feet/second 

h 

21-30 

510.5 

Y(3),  Q,  angular  velocity  about, 
y-axis,  radians/second 

h 

314*0 

510.5 

Y(lt),  THETA (8),  pitch  angle, 
radians 

h 

ul-50 

510.5 

Y(5),  Z,  depth,  feet 

Coefficient 

Cards 

5 

1-80 

8510,5 

XQt;,  XUD,  XV*},  XUU,  XWM,  XDSDS, 
XDBDB,  XWVE 

6 

1-10 

513.5 

X^SQSE 

7 

1-80 

8510,5 

ZQD,  TWD,  ?.Q,  ZAQD3,  2V.AQ, 

ZSTR,  ZW,  ZWAW 

h7 


NAVTRADEVCEN  68-C-0050-2 


TABLE  6.  INPUT  DATA  DECK,  PROGRAM  ZC790  (cont.) 


Card  ; 

Column(s) 

Format 

Description 

8 

1-80 

8F10.5 

1 

ZAW,  ZWW,  ZDS,  ZD3,  ZQE,  ; 

ZWE,  ZWAWE,  ZDSE  • 

9 

1-80 

8 F10, 5 

AM3D,  AM3AQ,  AMWD,  AMQ,  AMAQDS,  ' 
AMAWQ,  AMSTR,  A MW  ; 

10 

1-80 

8F10.5 

AMWAW,  AMAW,  AMWW,  AMDS,  AMDB,  i 
AMRE,  AMWE,  AMAWE  | 

11 

1-80 

F10.5 

AMDSE 

» 

Svx'omarine  Constants 

12 

1-10 

Flo. 5 

IY,  moment  of  inertia  about  the, 
y-axis,  slug/ft2 

13 

1-10 

no.  5 

i 

CW,  weight  including  water  in  i 
free- flooding  space,  pounds  j 

13 

11-20 

Flo.  5 

CB,  buoyancy,  pounds  j 

1 

13 

21-30 

FLO.  5 

I 

UC,  initial  command  speed,  1 

feet/second  f 

13 

31-li0 

FLO.  5 

! 

XB,  x-component  of  center  of  , 

buoyancy,  feet  1 

i 

13 

ia-5o 

F10.5 

ZB,  z-component  of  center  of 
buoyancy,  feet  i 

Hi 

1-10 

FLO.  5 

i 

DS,  initial  value  of  stem 
elevator  position,  radians  j 

lli 

11-20 

F10.5 

DB,  initial  value  of  bow  J 

elevator  position,  radians  1 

| 

Hi 

21-30 

FLO.  5 

RHQ,  density  of  sea  water,  j 

slugs/feet^  i 

1  i 

lli 

31-liO 

FLO.  5 

{ 

AL,  submarine  length,  feet 

_ 

Hi 

ia-5o 

no.  5 

AM,  submarine  mass,  including  , 

>  water  in  free  flooding  space, 

;  slugs 

15 

1-10 

no.  5 

ETAHI^ -high),  upper  reference 
value  of  UC/UMAC,  dimensionless 

15 

11-20 

PI  A  C 

ETALC^-lcw),  lower  reference 
value  of  UC/UMAG,  dimensionless 

as 
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TABLE  6.  INPUT  DATA  DECK,  PROGRAM  ZC790  (cont.) 


Format 

Description 

no.  5 

i 

All,  value  of  ai  for  ETA  ETAHI 

Flo.  5 

A12,  value  of  for  ETA  ETAHI 

Flo.  5 

A13,  value  of  for  ETA  ETAHI 

F10.5 

A21,  value  of  a^  for  ETALO 

ETA  ETAHI 

Flo.  5 

A22,  value  of  bj,  for  ETALO 

ETA  ETAHI 

F10.5 

A23,  value  of  for  ETALO 

ETA  ETAHI 

F10.5 

A31,  value  of  a.^  for  ETA  ETALO 

F10.5 

A32,  value  of  b±  for  ETA  ETALO 

Flo.  5 

A33,  value  of  Ci  for  ETA  ETALO 

F10.5 

XG,  x-component  of  center  of 
gravity,  feet 

Flo.  5 

2G,  z-component  of  center  of 
gravity,  feet  j 

\ 

t 

i 

F10.5 

1 

TIME,  various  periods  of  time  1 

depending  on  NS  in  control  j 

routine,  seconds  • 

NS  Time  ! 

15”  Not  used  i 

1  Initial  steady  state 
period  (See  figure  3) 

2  Not  used  in  input 

3  Period  of  constant 

application  of  each  j 
command  speed  i 

ii  Period  of  constant 

application  of  each 
command  speed 

no. 5 

Rl,  negative  rate  of  change  of 
elevator  position,  radians/ 
second  during  meander  runs 
(NS  =  1).  radians/second  (See 
figure  3) 

i*9 
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TABLE  6.  INPUT  DATA  DECK,  HtOQRAM  ZC790  (cont.) 


Column(s) 


21-30 


31-1*0 


1*1-50 


51-60 


61-70 


Additional  Run  Controls 


Format  1  Description 


F10, 5  DELTMA,  maximum  negative  I 

swing  of  elevator  (must  be 
>  more  negative  than  DS,  initial 
condition)  during  meander  runs  j 
(NS  a  l),  radians  (See  figure  3) 

i 

P10. 5  SWMAX  (O’ ),  execute  pitch  angle,' 
[  maximum  submarine  dive  angle  ; 
'  during  meander  type  run  (NS  =  l)' 
before  turning  elevators  to  a 
1  more  positive  value,  radians  ! 
I 

F10.5  <  R2,  positive  rate  of  change  of 

elevator  position  after  subma-  j 
!  rine  reaches  O’,  radians/second 
•,  (See  figure  3) 

F10.5  |  DELTMI,  maximum  position  to 

<  which  elevators  are  moved  dur¬ 
ing  'R2'  change,  radians  (See 
■  figure  3) 

1 

F10.5  !  DSF,  final  value  of  elevator 

;  position  during  DS  -  impulse 
i  run  (NS  s  2),  radians. 

1 

I  If  I  OPT  was  "O'*  on  card  ]  of 
j  the  last  data  deck,  card  32 
.  can  be  either  blank  for  a 
j  normal  exit  or  card  1  of  a 
j  new  data  deck  for  additional 
I  runs.  If  I  OPT  =  F  on  card  1 
f  of  the  last  data  deck,  see 
1  below. 


IRUN,  run  numbers 
IRUN  s  0  (blank  card)  a  new 
data  deck  is  read.  A  talank 
card  at  the  start  of  a  data 
deck  results  in  a  normal  exit 
so  two  blank  cards  at  the  end 
wiU  always  end  the  run. 

IRUN  *  Integer.  Use  as  new 
run  number  and  continue  read¬ 
ing  cards  below. 

NDEX,  common  location  for 
parameter  to  be  changed. 

Tahle  8  shows  the  variable 
names  versus  the  the  consnon 
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U.  OUTPUT  DATA 

a.  Printout  -  This  program  will  print  out  titled,  numbered  pages. 
The  first  page  proviues  the  input  data  as  shown  in  figure  10,  Subsequent 
pages  provide  the  variables  noted  in  table  7, 


Variable 


U 


THETA 

Z 

T 


TABLE  7. 

OUTPUT  VARIABLES 

Format 

Unite 

£13.6 

feet/second 

£3-3.6 

feet/second 

£13-6 

radians/seconds 

03.6 

radians 

0.3.6 

feet 

03.6 

seconds 

Description 


Velocity  component  in 
x-direction 

Velocity  component  in 
•5-diraction 

Angular  velocity  about 
y-axis 

Submarine  pitch  angLe 
Submarine  depth 
Time 


A  sawple  data  sheet  is  shown  in  figure  11,  ^Coefficients  used  in 
this  run  are  trial  or  synthetic  ooeff i  -1  ts } .  This  data  is  a  function 
of  the  tine  of  the  run,  T.  The  frequency  of  printout  is  a  function  of 
NPNT,  printed  each  NPNT^  integration  cycle.  For  instance; 

For  the  integration  which  used  ICTC  =  1,  If  H,  integration  tine 
period  is  0,25  second  and  NPNT  5  6 

_  NPNT  x  H  _  8  x  0.25  .  . 

T*  ■  2  second  \12) 


This  printout  would  be  at  t  =  0  and  each  two  seconds  thereafter. 
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TABLE  8.  ZC  790.  COMMON  LAYOUT 


\ 

Looation!  Term 


I  i 

Location!  Term  I  Locatioh  Term  Location 


1 

H 

ZWAWE  j 

1 

A22 

2 

N 

ZDSE  ! 

WSm 

A23 

3 

IS1 

AMQD  ! 

■III 

A31 

1* 

NPNT 

l*o 

AMQAQ 

tmm 

A32 

5 

TLIM 

111 

AMWD 

77 

A33 

6 

RH0L2 

1*2 

AMQ 

78 

XG 

7 

RH0L3 

1*3 

AMAQDS 

79 

ZQ 

8 

RHQLl* 

1*1* 

AMAWQ 

80 

ILOC(l) 

9 

RH9L5 

1*5 

AMSTR 

81 

(2) 

10 

WMB 

1*6 

AMW 

82 

(3) 

11 

ETA 

1*7 

AMWAW 

83 

(U) 

12 

ETAKL 

1*8 

AMAW 

81* 

(5) 

13 

ISW2 

1*9 

AMWW 

65 

(6 ) 

ll* 

XQQ 

50 

AMDS 

86 

(7) 

15 

XUD 

51 

AMDB 

87 

(8) 

]6 

XWQ 

52 

AM3E 

86 

IPLOT 

17 

XUU  ! 

53 

AMWE 

89 

IRUN 

18  | 

xww 

51* 

AMAWE 

90 

IOPEN 

19  1 

XDSDS 

55 

AMDSE 

91 

NPLT 

20 

XDBDB 

56 

II 

92 

IOFC 

21 

XWWE 

57 

CW 

93 

1(1) 

22 

XDSDS E 

58 

CB 

91* 

(2) 

23 

ZQD 

59 

UC 

95 

(3) 

21* 

ZWD 

60 

XB 

96 

(1*) 

25 

ZQ 

61 

ZB 

97 

(5) 

26 

ZAQDS 

62 

DS 

98 

(6) 

27 

ZWAQ 

63 

DB 

99 

TIME 

28 

ZSTR 

61* 

RHO 

100 

R1 

29 

ZV 

65 

AL 

101 

DELTMA 

30 

ZWAW 

66 

AM 

102 

SWMAX 

31 

ZAW 

67 

ETAHI 

103 

R2 

32 

ZWW 

68 

ETALO 

101* 

DELTMI 

33 

ZDS 

69 

All 

105 

DSF 

3U 

ZDB 

70 

A12 

106 

NS 

35 

ZQE 

71 

A13 

36 

ZWE 

72 

A21 
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Figure  10.  Input  Variable  Format,  ZC790 


d'jVd  IVMlOfUiVNUl  *NUIl»ini«IS  3NIoV«PHS  1/643/ 


NAVTRADEVCEN  68-C-0050-2 


mm 

mm 

rv 

rv 

f 

fS/ 

fV 

fN 

rv 

fV 

rv 

o 

c 

c 

e 

c 

© 

C 

o 

e 

o 

© 

© 

o 

O 

u. 

u. 

a 

u. 

u 

u. 

Uj 

u. 

UJ 

u. 

UJ 

til 

u. 

u 

g 

o 

© 

c 

r 

g 

c 

r 

c 

© 

c 

c 

o 

© 

o 

r 

o 

© 

c 

© 

o 

o 

© 

r 

g 

o 

o 

© 

c 

c 

© 

c 

© 

c 

© 

o 

© 

r 

o 

o 

o 

o 

o 

o 

c 

o 

c 

o 

© 

c 

o 

© 

o 

o 

o 

IV, 

© 

c 

* 

or 

rv 

<c 

c 

© 

T 

*v 

<0 

c 

or 

mm 

mm 

fw 

(V 

* 

© 

tr. 

© 

If 

If 

• 

• 

t 

t 

• 

• 

• 

• 

• 

• 

• 

• 

• 

• 

• 

c 

o 

c 

c 

c 

c 

C 

c 

c 

C 

c 

c 

c 

© 

o 

© 

t* 

r 

© 

i*. 

r* 

© 

r« 

r» 

ff 

r- 

r 

r 

r- 

© 

C 

o 

o 

O 

© 

O 

c 

o 

c 

© 

o 

C 

© 

o 

o 

u 

U- 

u 

u 

u 

u 

u 

u 

u 

u. 

u 

U- 

u 

u 

u. 

C 

< 

«■ 

< 

© 

© 

— < 

o 

a 

o 

© 

r 

rvj 

© 

9 

mm 

© 

© 

rv 

© 

3# 

** 

© 

© 

© 

o 

9 

o 

vt 

rv 

© 

f\. 

© 

or 

or 

© 

© 

r 

«c 

© 

© 

9 

o 

© 

o 

o 

0 

© 

* 

O 

IT 

© 

© 

© 

© 

© 

9 

© 

o 

o 

© 

© 

9 

9 

a 

CC 

© 

© 

if 

or 

© 

a 

or 

or 

or 

© 

© 

© 

© 

© 

© 

© 

© 

© 

• 

• 

• 

• 

• 

• 

• 

• 

• 

• 

« 

• 

• 

• 

• 

o 

C 

© 

o 

o 

c 

© 

© 

o 

o 

O 

© 

O 

O 

© 

rv 

rv 

r\ 

mm 

o 

© 

© 

© 

o 

o 

o 

o 

© 

© 

o 

1 

© 

i 

o 

© 

© 

© 

© 

o 

© 

c 

o 

© 

o 

o 

u. 

1 

Uj 

i 

u. 

u. 

UJ 

1 

u. 

u. 

u. 

UJ 

U. 

u. 

UJ 

u 

u. 

U- 

© 

© 

© 

e*' 

© 

mm 

rv 

If 

•c 

©J 

© 

© 

+ 

* 

K 

r- 

u. 

© 

If 

© 

or 

ft 

If 

rv 

© 

© 

© 

© 

mm 

If 

f 

© 

I 

if 

C 

© 

© 

© 

m- 

© 

© 

© 

* 

© 

© 

rv 

o 

© 

© 

if 

© 

If 

m* 

© 

a 

* 

© 

c 

© 

© 

r* 

m- 

* 

m- 

ft 

© 

c 

© 

If 

© 

rv 

© 

© 

* 

fT 

if 

If 

© 

>1 

© 

•-* 

•«- 

fNl 

rv 

cv 

fVi 

fV. 

• 

• 

• 

• 

• 

• 

• 

• 

• 

• 

• 

t 

• 

• 

• 

© 

e 

O 

c 

c 

o 

o 

© 

© 

© 

c 

o 

© 

o 

© 

r 

rv> 

fV 

r 

v» 

mm 

f 

rv 

i* 

r 

r 

© 

© 

© 

© 

c 

© 

© 

© 

c 

C 

© 

c 

O 

o 

u. 

u* 

u. 

u. 

u 

Uy 

u 

u. 

u. 

u. 

11 

u. 

u. 

i 

u. 

© 

© 

o 

© 

K 

© 

© 

9 

o 

4 

© 

© 

© 

© 

* 

0" 

© 

i‘ 

* 

f\ 

rv 

© 

K 

© 

© 

© 

V 

© 

c 

h* 

© 

© 

IV 

© 

© 

© 

rv 

« 

© 

K- 

K 

rv 

mm 

rvj 

r 

r 

r» 

© 

© 

mm 

rv. 

rv 

•C 

c 

mm 

© 

© 

mm 

© 

O 

»- 

C 

** 

© 

© 

© 

■M 

mm 

9 

© 

m* 

© 

• 

• 

« 

• 

• 

• 

• 

• 

• 

• 

• 

* 

• 

• 

• 

o 

o 

r 

o 

o 

© 

o 

o 

c 

© 

© 

c 

© 

© 

O 

I  I  I 


_ 

_ 

© 

© 

r 

r 

© 

r 

© 

© 

r 

© 

c 

© 

c 

c 

© 

© 

© 

© 

c 

© 

f 

© 

© 

© 

© 

© 

u 

Uj 

u 

Up 

w 

u 

u 

u 

u 

u 

ir 

u 

u 

L. 

u 

O 

rv 

e 

c 

c 

V 

« 

it 

© 

*■ 

« 

C 

© 

© 

© 

© 

© 

© 

r» 

» 

V 

© 

© 

m— 

r*. 

© 

© 

c. 

<4 

k 

c 

rv 

m. 

U 

4 

w 

© 

© 

© 

r» 

rv 

© 

or 

K 

© 

© 

© 

ft 

•r 

m 

u. 

#* 

© 

C 

< 

0 

•- 

tf 

ft 

ft 

rv 

ft 

© 

© 

V 

#v 

»« 

© 

► 

u. 

© 

© 

© 

mt 

© 

• 

r 

• 

t 

• 

• 

• 

• 

« 

• 

« 

• 

• 

• 

• 

c 

O 

o 

o 

O 

C 

e 

C 

C 

c 

O 

C 

c 

c 

c 

crccccceeeecccr 


Figure  11.  Output  Variable  Format,  ZC790 


NAVTRADEVCEN  68-C-0050-2 


b,  Plots  -  The  program  can  optionally  plot  any  of  the  printed  values. 
In  addition,  the  control  parameter  BS  and  DB  (plane  position,  radians)  can 
also  be  plotted.  This  output  is  identical  to  that  of  figure  7. 

5.  LISTINGS  AND  FLOW  CHARTS 

Appendix  A  contains  the  listings  and  flow  chart  for  this  program. 
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C.  EG  hlO,  INITIAL  CONDITION  COMPUTATION  FOR  SIMULATION 

1.  DESCRIPTION 

In  order  to  evaluate  longitudinal  performance  of  the  submarine,  a 
set  of  initial  conditions  for  level  flight  is  required.  These  initial 
conditions  are  a  set  of  neutral  angles  defined  as  0,  steady  state  pitch 
angle;  DS,  stemplane  angle;  and  DB,  bow  (sail)  plane  angle  at  a  particular 
speed.  This  requires  that  the  angle  of  attack  equal  the  pitch  angle  and 
that  the  accelerations  {i,  w,  and  £  equal  zero.  Reference  is  made  to  angle 
of  attack  in  many  texts,  including  the  NSRDC  reports  but  the  parameter 
does  not  appear  in  the  equations  of  motion.  This  is  because  a  body  axis 
system  of  coordinates  is  used  instead  of  a  flight  path  set.  The  angle  of 
attack  is  the  angle  between  the  flight  path  and  the  body  when  roll  angle 
is  zero. 


Figure  12.  Angle  of  Attack. 

The  angle  of  attack  (and  in  the  case  of  steady  level  flight,  the 
pitch  angLe)  can  be  calculated  from  the  relationship 


-r  Tl  I  ^ 

\J  -  LA  ^ 


Sin  ©  -  sm tx  =■ 


ur 


U .r 


or  * 


(13) 

(1U) 


as  seen  in  figure  12,  This  removes  the  parameter  0  by  replacing  it  with 
a  function  of  u r  %  For  any  speed,  U.  the  equations  of  motion  can  be  solved 
for  level  flight,  in  terms  of  U  and  o s  or  § .  ,  by  setting  w,  q,  4,  and 
all  lateral  terms  to  zero.  Equation  (3)  is  determined  from  Normal  Equation 
(3)  of  the  NSRDC  Standard  Equations  and 

*LV  (15) 

=  0 

equation  from  the  pitching  moment  equation  (5). 
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+  M^u2  t  u7  $ 


wl  i  Mu, 

,  Ip 

fMzr***-  u 


(16) 


P  =  density  of  water,  $,  =  length  of  submarine,  and  S  can  be 
either  Ss  or  §B  provided  that  the  correct  coefficients  Z$s,  Mg  s  or 
Z§g,  M  £g  are  used  as  inputs. 

This  program  solves  Equations  (15)  and  (16)  for  and  4  ,  The 
program  utilizes  all  coefficients  of  interest  so  that  it  can  be  used 
with  any  set  of  coefficients  applicable  to  the  NSRDC  equations.  The  pitch 
equation  is  solved  for  S  with  a  trial  value  of  <-*/■ ,  and  this  value  is 
used  in  the  normal  equation  via  Newton's  method.  Theta  is  then  calculated 
by  equation  (17). 

©  =.  (17) 


This  program  serves  another  purpose  in  addition  to  determining  the 
initial  conditions  for  longitudinal  runs.  The  values  for  §  are  determined 
for  the  operational  speed  range  of  the  submarine  and  at  some  point  the 
values  become  very  large.  This  speed  is  known  as  the  critical  speed  be¬ 
cause  at  this  speed  the  controls  are  ineffective  in  controlling  the  pitch 
attitude  of  the  submarine.  The  critical  speed  points  determined  by  this 
program  can  be  checked  against  the  data  sources  to  insure  effective  train¬ 
ing  through  the  simulation, 

2.  INPUT  DATA  DECK 

The  inputs  to  the  program  include  the  appropriate  submarine  coeffi¬ 
cients,  including  choices  of  ZDS  or  ZDB  and  MDS  or  MDB  for  stem  or  sail¬ 
planes  respectively.  The  other  plane  is  considered  to  be  sot  at  zero  and 
has  no  effect  on  the  submarine  trim.  The  submarine  physical  constants, 
and  the  speed  of  operation  are  needed  also.  These  values  are  identified 
in  detail  with  their  locations  on  punch  cards  in  table  9. 


TABLE  9.  INPUT  DATA  DECK,  PROGRAM  EC  1*70. 


Card 

Colunn(  s ) 

Format 

Description 

1 

i-5o 

5F10.5 

ZW’AW,  ZWW,  ZW,  ZAW,  ZSTR 

1 

51-60 

F10, 5 

ZDEL,  use  either  ZDS  or 
ZDB  as  desired. 

2 

1-50 

5F10.5 

MWAW,  f«W,  MW,  MAW,  MSTR 

2 

51-60 

no.  5 

MDE1,  use  either  MDS  or 
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TABLE  9.  INPUT  DATA  DECK,  PROGRAM  ECltTO  (cont.) 


Card 

Coluim(s) 

Format  !  Description 

t 

j 

MDB  in  accord  with  selection  ( 
of  ZDEL  above.  ( 

3 

1-10 

Flo.  5 

B,  buoyancy,  pounds 

3 

11-20 

F10.5 

AB,  2-component  of  center  of 
buoyancy  location,  feet 

3 

21-30 

F10.5 

RHO,  density  of  sea  water, 

slugs/ft3 

3 

31-UO 

1-10 

F10. 5 

AL,  ,  submarine  length,  feet 

lx 

F10.5 

U,  submarine  forward  velocity, 
feet/second.  This  should  be 
highest  speed  desired. 

k 

11-20 

F10.5 

! 

WZERO,  ,  trial  value  of 

as  required  in  solution  of 
problem.  This  initial  guess 
should  be  close;  1st  approxi¬ 
mation  is  .002  U  radians 
(U  in  feet/second). 

h 

21-30 

F10.5 

ULIM,  submarine  forward 
velocity,  feet/second.  Thi3  is 
the  slowest  speed  desired. 

The  program  will  calculate 
initial  conditions  from  U  thru 
ULIM  in  one  (l)  knot  (1.689 
feet/second)  intervals. 

5 

- 

- 

Blank  card  for  normal  end  of  job 

3.  OUTPUT  DATA 


Figure  13  is  a  sample  output  data  sheet  using  trial  or  synthetic 
coefficients.  The  output  is  presented  in  rows  of  data  at  one  knot  in¬ 
tervals  in  speed  from  the  highest  requested  speed,  U  to  the  lowest, 

HIM.  The  following  parameters  are  printed: 

a.  Input  data  -  All  coefficients  and  submarine  physical  constants 
as  provided  in  the  first  three  input  data  cards.  Units  are  same  as  those 
for  the  input  data, 

b.  Output  data 

U  -  forward  speed,  feet/second 
U  -  forward  speed,  knots 
W  -  Normal  speed,  feeVsecond 


58 


it.olilut.LJ  IVlii.,1  -  uu  J 


NOT 


REPRODUC'3'ui 


o 

r 

r» 

r 

c 

c 

1 

* 

t 

y 

y 

< 

c 

c. 

l 

C 

t 

c. 

C 

p 

t 

c 

r 

c 

i 

f 

i 

r 

c 

f 

r 

c 

<_ 

c 

c 

o 

C 

c 

C  ’ 

c 

c 

U  ' 

u 

u 

u 

u. 

u 

u 

u 

L 

y 

u 

u 

u 

u 

u 

u 

u 

u 

a 

u 

y 

Uf 

r 

r 

p 

4 

r* 

4 

t 

n 

> 

x' 

r 

r- 

4 

>1 

r 

>1 

«- 

L 

r 

%• 

r 

r 

T 

ft 

r 

*r 

*■*» 

r 

IT 

»• 

PM 

r» 

ir 

r 

*♦ 

»♦ 

r 

vr 

rt 

p 

f 

4 

P 

r 

r 

p 

4 

ft 

ft 

r 

4 

r 

v« 

c 

r 

ft 

«• 

CT 

er 

O 

<* 

r~ 

r 

* 

r> 

r 

*• 

if 

f> 

c 

r 

r 

4 

X* 

ft 

r- 

p 

f 

r 

r- 

c 

» 

p 

m 

p 

p 

— 

p 

m 

m 

p 

r 

ft 

f* 

•0 

<4 

f 

*v 

T 

p 

p 

p 

r- 

p 

p 

m 

p 

•> 

p- 

m 

p 

•*- 

«p- 

p 

p— 

p 

r 

r 

y 

• 

• 

• 

• 

• 

« 

• 

• 

• 

• 

• 

* 

• 

• 

• 

• 

• 

• 

• 

• 

r 

c 

r 

r 

r 

r 

t 

r 

r 

r 

r 

r 

r 

r 

p 

P 

p 

ft 

p* 

mm 

p 

mm 

m 

m 

p. 

p. 

mm 

p. 

mm 

m 

p 

mm 

«p 

mm 

m 

•» 

r 

r* 

r 

e 

r 

c 

r- 

r 

r 

c 

r 

r 

c 

c 

c 

c 

t* 

c 

c. 

C 

r 

( 

r* 

u 

c 

u 

u 

L. 

u. 

u 

u 

u 

u 

u. 

u 

i. 

u 

u. 

a 

U 

U 

U 

u 

i. 

u. 

c 

u 

t 

4. 

a 

y' 

X 

p> 

«— 

p 

•4 

n 

Y 

tv 

o 

•4 

o 

**• 

m  • 

c: 

r 

p 

V* 

C 

r> 

t 

t 

•4 

a 

•— 

ft 

4 

< 

u 

ft 

r 

U 

f* 

r 

c 

4. 

C 

ft 

■* 

-J 

o 

-j 

6 

_ 

V# 

ft 

r 

r 

•» 

rt 

r* 

V 

ft 

r* 

4 

mm 

IT 

•4 

rsi 

mm 

4 

ft 

ft 

u 

c. 

u. 

c 

4 

4 

4 

< 

< 

4 

4 

»r 

u 

V 

U 

y 

4 

4 

ft 

r 

U 

^ 

<4 

c 

4 

c 

c 

rv 

ft 

r 

fs* 

f\ 

fv. 

r« 

r 

r* 

ftj 

r 

f* 

ft 

ft 

ft 

•» 

m 

•» 

tv 

a 

9 

-1 

f 

•» 

p< 

— 

t- 

•• 

— 

— 

•- 

m~ 

mm 

— 

mm 

•* 

• 

• 

• 

• 

• 

• 

• 

• 

• 

• 

€ 

• 

• 

• 

• 

• 

• 

• 

• 

• 

• 

• 

• 

y. 

c 

C 

C  J 

C 

C 

c» 

c 

C 

c 

t 

r 

C 

c 

(. 

C 

C 

c« 

c 

c 

o 

c 

t- 

I  I 


r 

*1 

rv 

r 

r 

ft 

ft 

r- 

r 

r 

r 

rv 

ft 

r 

r 

ftv 

ft 

ft 

r 

r 

r. 

r 

C 

o 

mm 

C 

r 

C 

c 

e 

c? 

c 

c 

C 

C 

c 

c 

o 

o 

O 

o 

c 

C 

C 

c 

n 

I 

1 

r 

1 

i 

1 

1 

i 

i 

1 

1 

1 

1 

i 

l 

1 

i 

1 

i 

1 

t 

1 

t 

i 

u. 

a. 

< 

u 

u. 

u. 

u 

u 

u 

u 

a 

a 

u 

e 

u 

i. 

L. 

X,. 

a 

u 

u 

u 

u. 

u 

c 

a 

o 

c 

4 

1 f 

c 

x 

p* 

C 

C 

ft 

tv. 

4 

mm 

f* 

p 

14 

tf 

X 

a 

r* 

c 

*f 

p 

f^ 

r 

ft, 

r 

0 

c 

t> 

.4 

«r 

<1 

fs. 

K 

X 

or 

p 

4 

ft 

*r 

*“* 

*• 

r. 

tr 

r 

X 

f* 

mm 

r* 

IT 

p. 

PM 

4* 

er 

c 

if 

ff 

fr 

p 

i* 

•m 

< 

u. 

¥- 

V 

V 

c 

c. 

pM 

ft. 

r 

>.* 

a 

c 

p> 

a 

4 

r 

f» 

r- 

t| 

4 

4. 

*- 

r* 

►- 

IT 

\m/ 

a 

fr 

<? 

r 

<T 

c 

r 

p 

r 

r 

c 

o 

C 

C 

rt 

fT* 

»r 

r 

V 

C 

if 

rj 

i/ 

f- 

T 

m» 

mm 

PM 

p 

p* 

mm 

p 

PM 

P- 

p» 

p* 

ft, 

f\ 

M 

f\ 

r 

ft 

ft. 

#r 

if 

tv 

• 

> 

t 

►- 

• 

• 

• 

• 

• 

• 

• 

• 

• 

• 

• 

• 

• 

• 

• 

« 

• 

• 

• 

• 

• 

r 

c 

c 

c 

c 

r 

c 

c- 

c 

r* 

r 

c 

r- 

o  r* 

r* 

c 

c 

r 

r 

r 

C 

ff 

p 

p 

p . 

p 

p. 

p 

p 

p 

p 

p. 

p. 

p 

p 

p 

p 

t* 

" 

f 

e 

c 

C 

r 

< 

r- 

* 

r_ 

c 

C 

C 

c 

r 

r 

r 

r 

C 

r 

1 

1 

i 

i 

1 

» 

i 

1 

1 

i 

1 

1 

1 

1 

i 

1 

i 

• 

1 

» 

1 

U 

r 

u 

u 

u 

u 

\ 

u 

u 

C 

si. 

u 

t. 

l 

i 

i. 

d 

u 

u 

Lt 

u 

u 

C 

<■ 

r 

C 

p 

p 

P« 

0 

4 

c 

a 

: 

t» 

p- 

r- 

»T 

4 

c 

f* 

a- 

p 

c 

r 

f 

f* 

y 

or 

or 

4 

ft 

c 

4“ 

ff 

p 

f» 

p 

fr 

4 

p 

ft 

C 

o 

p 

ft 

r 

r 

« 

r- 

4 

if 

4 

rr* 

PM 

l* 

► 

J 

p. 

K 

r 

i r 

4 

r 

4 

r 

4 

pp 

r 

"r 

*» 

Mf 

r* 

r* 

r* 

r 

•• 

p 

p 

p 

fr 

fr 

K 

4 

t* 

V* 

p 

p 

► 

► 

« 

m 

a. 

r 

ft 

ft 

r> 

ft 

r 

p 

PM 

p 

p 

• 

p— 

p 

p 

p 

p 

m 

*  • 

0 

r 

► 

t  >  c 

«  r 

f 

r 

r 

ft 

ft 

r 

r 

f 

r 

rv 

r 

ft 

r 

r 

r 

r 

f- 

r 

r 

f 

p 

p 

•  • 

• 

• 

• 

• 

• 

• 

• 

• 

• 

• 

• 

• 

• 

• 

• 

• 

• 

• 

• 

• 

• 

• 

-  *• 

r 

" 

t" 

t* 

*■' 

" 

r~ 

r 

"" 

' 

' 

- 

• 

p 

r 

PM 

p 

p- 

p 

p 

p 

p 

p 

• 

p 

• 

p 

p 

p 

p_ 

p 

p 

p. 

mm 

p 

p 

r“ 

r 

c* 

PM 

p- 

r 

c 

r* 

rv 

r* 

r 

r 

f“ 

r 

C* 

c 

r. 

rx 

r 

r 

** 

ft 

rt 

1 

i 

i. 

1 

t 

I 

1 

l 

1 

1 

i 

I 

• 

i 

1 

i 

t 

1 

i 

1 

i 

1 

1 

1 

ip 

i 

u 

u 

u 

u 

u 

u 

i. 

»» 

L. 

u 

V- 

a 

c 

%m 

M 

u 

u 

u 

L. 

w 

y 

1 

u 

c 

c 

C 

fv 

■4. 

p* 

ft* 

*  • 

U 

4. 

r 

p 

r 

0 

4 

O 

c 

y 

c 

y 

4. 

p— ■ 

c 

r 

< 

X. 

c 

ft 

4 

ft 

mm 

f 

u 

p 

4 

pt 

r 

if 

f» 

y 

p 

v 

0 

f* 

C 

r 

r~ 

»- 

r 

r 

4 

v* 

V* 

c 

4 

*r 

► 

X 

4* 

ir 

1  ‘ 

4 

p. 

r 

f 

e 

U 

o 

T 

nr 

•r 

▼ 

ft 

f* 

f“ 

p 

r 

• 

4 

r 

tr 

a 

iT 

y 

tf 

■" 

f* 

4  r 

jk  i> 

j 

V. 

p 

0 

4 

f» 

C 

ft 

< 

p 

V 

X 

r 

ft 

4 

t 

i 

ft 

y 

-4 

y 

K.  p 

o 

r 

.» 

ft 

ft 

ft 

X 

4 

X. 

4 

y 

u 

w 

X* 

4 

< 

.* 

r 

■* 

r 

ft 

r» 

i. 

• 

• 

• 

• 

• 

• 

• 

• 

• 

• 

• 

• 

% 

• 

• 

• 

• 

• 

• 

• 

• 

• 

• 

• 

c 

r 

C 

C 

c 

T 

- 

C 

: 

r 

l 

c 

1 

I 


r 

ft 

r 

r 

r 

r 

r 

r 

r 

r 

r 

r 

r 

r 

r> 

p 

p 

p. 

p 

p 

r 

C 

c 

r 

C 

r* 

f 

f 

f 

r 

r- 

/* 

f 

r* 

u 

y 

y 

a. 

u 

y 

y 

w 

y 

y 

i 

V* 

y 

y 

V- 

<■ 

► 

r~ 

ft 

f 

* 

r 

i* 

f 

r 

•* 

r 

( 

f 

ft 

f 

f 

r 

c 

* 

c 

c. 

C 

c 

C 

C 

c 

y 

J 

C 

r 

"m 

c 

c 

c 

c 

c 

y 

> 

r  m 

o 

r 

r* 

r 

r 

r 

f“ 

f~ 

t 

c 

'X 

r 

C 

ft 

r 

r 

r* 

•x 

r 

K. 

t 

O 

c 

C 

c 

c. 

“y 

r- 

c. 

c 

C 

0 

c 

c 

C 

c 

r 

y* 

c 

C 

c 

C 

X 

y 

4 

rf 

r 

p 

c 

c 

a 

4 

u 

X* 

r 

r 

p- 

c 

C 

c 

c 

c 

r 

w- 

r  r 

p 

r 

f* 

f» 

r* 

r 

•* 

p- 

•— 

p 

p 

p  ■ 

«p 

p 

c 

fr 

^ 

4 

» 

•  • 

• 

• 

• 

• 

« 

• 

• 

« 

• 

• 

• 

• 

• 

• 

• 

• 

• 

» 

• 

• 

• 

• 

c  <p 

c 

C 

t- 

c 

e 

t- 

y* 

c 

y 

C 

y 

C 

■_ 

c 

y. 

c 

y 

y 

y 

y 

c 

I 


p 

p 

m 

f 

f 

r 

r 

r 

, 

r 

*■ 

* 

r 

r 

f 

r 

r 

r 

• 

r 

r 

p 

r 

C 

f 

— 

f 

r* 

r* 

r 

*" 

f" 

r 

r 

— 

r 

c 

p 

rt 

r 

f 

«- 

C 

e 

l 

1 

y. 

y. 

w 

p 

yy 

y 

w 

p 

w 

« 

u 

w 

u 

u 

u. 

V 

i. 

u. 

y 

p 

u 

w 

u 

p 

tp 

C 

o 

4 

Cm 

c 

C 

C 

i» 

C 

0 

O 

c 

x 

C 

Q 

c 

o 

a 

a 

T 

u. 

.* 

o 

C' 

o 

Xv 

4 

rx 

T 

a 

r 

a 

p 

rv 

»r 

t> 

w 

4 

fx 

er 

u 

o 

p- 

rs. 

X 

■m  W 

o 

c 

f\ 

r 

4 

4 

r* 

i 

c 

p 

f\ 

P 

» 

4 

4 

a 

O 

p- 

r. 

r 

v3 

*-  c 

< 

o 

r» 

ip 

W* 

a 

p 

.• 

fx 

4 

r 

c 

f* 

4 

c 

r 

4 

o 

r 

4 

0 

p  - 

4 

■r  »- 

■* 

.♦ 

r* 

w 

rv 

or 

ft 

4* 

•m 

p 

-X 

•r 

X 

4 

«r 

.  . 

a 

4 

sT 

p. 

*X 

*  ir 

- 

** 

X* 

tf 

m» 

<r* 

ft 

r 

f^ 

m- 

m 

r 

* 

f 

- 

* 

- 

- 

— 

*f 

c 

c 

C 

c* 

r 

c 

C 

r 

r* 

r 

c 

.* 

X 

c 

0. 

0. 

0. 

o  c 

r 

C 

r 

i  I 


59 


Figure  13.  Output  Variable  Format,  EGU70 
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DEL  -  DS  or  DB,  depending  in  the  selection  of  the  coefficients, 
ADS  and  MDS  or  ZDB  and  MDB  respectively,  radians. 

THETA  -  0,  submarine  pitch  angle,  radians 
DEL  -  3S  or  DB,  degrees 
THETA  -  0,  degrees 

k,  LISTINGS  AND  FLCW  CHART 

The  listings  and  flow  chart  for  program  ECU70  are  included  in 
appendix  A. 
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D.  ECk30.  OBITER  OF  GRAVITY  COMPUTATION 
1.  DESCRIPTION 


This  program  calculates  the  new  locntion  of  the  center  of  gravity,  in 
three  planes,  due  to  the  flooding  of  any  combination  of  tanka  on  a  sr.omarine. 

The  program  solves  equations  stated  below,  and  points  out  the  new 
total  weight,  three  components  of  center  of  gravity  position,  and  a  record 
of  the  tanks  filled. 


X,  »•  £  Wu  XJ 
W,  tS. 


W.Y,  i-  Z  Wi  YV 


x  W,  ?-,  »  21 

ir  -  \A/,vX  NA/J 

where  Xr  =  x  -  component  of  center  of  gravity  location,  feet 
Yq  =  y  -  component  of  center  of  gravity  location,  feet 

ZG  s  z  -  consonant  of  center  of  gravity  location,  feet 

s  weight  of  submarine,  pounds 

Xi  =  x  -  component  of  center  of  gravity  basic  submarine,  feet 

*  y  -  component  of  center  of  gravity  basic  submarine,  feet 

-  z  -  component  of  center  of  gravity  basic  suomarine,  feet 

-  weight  of  water  in  i^1  tank,  pounds 

Xi  s  x  -  component  of  center  of  gravity  of  i^1  tank,  feet 

Y^  s  y  -  component  of  center  of  gravity  of  1th  tank,  feet 

-  t  -  component  of  center  of  gravity  of  i^  tank,  feet 

W  s  Wo  P°m  ds 

i  *  integer  from  ?  to  ?0,  depending  on  number  of  tanka 
conaidered 

?.  INPUT  DATA  DESK 

The  input  variables  to  ♦he  program  include  the  numbers  of  particular 
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tanks,  weight  of  water  when  full,  three  components  of  center  of  gravity  of 
each  tank  when  full,  and  particular  control  variables.  These  inputs  are 
described  in  detail  with  their  locations  on  punch  cards  in  table  10. 


TAHLE  10.  INPUT  nATA  DECK,  PROGRAM  ECli30 


Card 

Column(s) 

Format 

1 

1-5 

15 

1 

6-10 

15 

2 

1-10 

F10.5 

2 

11-20 

F10.5 

2 

21-30 

F10. 5 

2 

31-1*0 

Flo.  5 

2 

Ul-50 

Flo.  5 

2 

5l-6o 

F10.5 

2 

61-70 

Flo.  5 

9 

71-60 

Flo. 5 

3-n 

1-80 

8F10.5 

Description 


N,  number  of  tanks  (including 
one  (l)  for  submarine,  con¬ 
sidered  as  a  tank) 


IPNT.  controls  pruitant  data 
IPNT  *  1  -  Input  data  printed 
IPNT  =  0  -  Input  data  not  printed 


WI,  Wi,  weight  of  water  in  tanks, 
pounds.  First  weight,  w^,  is 
weight  of  submarine 


XI,  Wi,  x-component  of  center 
of  gravity,  pounds.  First 
value,  X-^,  is  for  suomarine 
(usually  *0). 


YI,  Yi,  y-conponent  of  center 
of  gravity,  pounds.  First 
value,  Ylf  is  for  submarine 
(usually  =  0). 


ZI,  Zi,  z-component  of  center 
of  gravity,  pounds.  First 
value,  Z^,  is  for  submarine 
(usually  »  0). 

WI,  Wi  =  W(2),  weight  of  water 
in  #2  tank. 

XI,  Xi  -  X(2),  x-component  of 
of  C.G.  for  #2  tank 

YI,  Yi  =  Y(2),  y-component  of 
C.G.  for  #2  tank 

ZI,  Zi  -  Z(2),  z-component  of 
C.G,  for  #2  tank 

Repeat  card  number  two  (2) 
until  N  weights  and  C.G, 
components  have  been  entered, 
one  set  for  each  tank.  Maxi¬ 
mum  number  of  tanks  (sets)  is 
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TABLE  10.  INPOT  DATA  DECK,  PROGRAM  ECU30  (cont.) 


!  Card 

Column(s) 

Format 

Description 

fifty  (50). 

n+1 

i 

1-n 

nil 

ICTL(l')  I  =  1,N 

This  single  array  represents 
all  tanks  to  be  considered, 

#1  (the  submarine  itself)  thru 

N  (the  largest  number  of  tanks 
up  thru  50), 

ICTL(I)  =  0,  ith  tank  is  empty. 
ICTL(I)  =  1,  ith  tank  is  full 
and  the  W,  X,  Y,  and  Z  values 
of  this  tank  will  be  included 
in  the  calculations. 

1  M+2-m 

. 

» 

! 

Stack  as  many  of  these  cards 
as  desired,  one  card  for  each 
run 

m+1 

1 

n 

9,  this  is  normal  end  of  job 
card. 

3.  OUTPUT  DATA 


A  sample  of  the  output  data  sheets  is  shown  in  figure  lL.  This  sample 
is  in  two  pages,  numbered  sequentially  and  each  identified  by  the  program 
number  and  title. 

Page  one  shows  the  input  data,  N,  W,  X,  Y,  and  Z,  number  of  the  tank, 
weight  of  water  of  the  tank  and  the  x,  y,  and  z  coordinates  of  the  center 
of  gravity  of  each  full  tank. 

Page  two  contains  two  sets  of  data.  The  first  includes  a  listing  of 
all  tanks  considered  from  1  thru  N.  Below  each  tank  number  is  a  second 
digit  which  is  "1"  if  the  tank  is  filled  and  the  weights  and  moment  arms 
for  that  tank  are  considered  in  the  calculations.  This  number  is  "0"  if 
the  tank  is  empty. 

L.  LISTINGS  AND  FLOW  CHAPT 

The  listings  and  flow  chart  for  program  ECU30  are  included  in 
appendix  A. 


63 


rr^rfs  r.navriY 


NAVTRADEVCEN  68-C-0050-2 


» 


i 


R 


t 

\ 

i 

» 

i 


\^V 


coooc  o  ©  o  o  c 

u.  u  u.  U'  u.  uj  u  u  u  a. 

COCCOjo^c  o 

00000000©  <~ 

oCCcOooC©  c 

©OCOOc-OCO  © 

©©©©coccn 

C  <v  «\  rs.  ^  C  a  t  >r  i* 


o  ^ 
©  o 
c  r> 
o  c 

r  r- 


^  r  o 


COOOOOCOOCOOO' 
III  I 


f* 

o 


£> 

CO 

•H 

I 


—  r‘ 

r* 

•- 

r 

r 

*• 

r~ 

'  *“ 

'  - 

r  r- 

r 

C  O 

O 

c 

.j 

<7 

c 

W  C 

o 

^  c. 

• 

r 

r 

r» 

r 

r 

^  .  fx 

r  •  ^ 

f«  •* 

c 

© 

C 

c 

r- 

= 

< 

r  c 

r  ' 

c-  o 

t 

a 

r 

u 

u 

l 

u 

L  4 

t  U 

■d 

* ' 

r* 

o 

r~  <- 

•“ 

w 

x_ 

w 

c_ 

•_ 

w 

■*  .  . 

- 

c 

C 

o 

>». 

<W 

o 

i.  C 

X-  Ct 

s.  C. 

■-> 

w 

c 

o 

f 

t.  c„ 

o  C 

i. 

©• 

r 

r 

r 

<- 

r  < 

c 

C  o 

t' 

LT 

" 

* 

f 

-  « 

0  * 

*  — 

' 

.© 

'  c 

-•  -* 

'  »  I 


■p 


^  *  *  <-  l»  «  W  *  u  *4  *  *»'  S*  J  v.- 

U  »*.  X  u  W  u  W  t*  tt.  tt  U  «*  W  U  w 

L  O  C  O  o  c  o  o  '  c  C  O  (  *-  C 

w<  '  -  ■  )  o  o  c  c  c  r  co  ^  t  •.- 

**> 

•“  •  r  *■  ©  c  »-  »  o  ©  c  c  <—  ? 

L  -»  4-  W  W  O  U  C  V  ^  O  <J  W  * 

Cf  n 


_  3oo  '  <.  ©  ©  t  .  r  v  ©  . 


6U 


0.900000E  07 


NAVTRADEVCEN  68-C-0050-2 


65 


Figure  lii.  Output  Variable  Format,  ECU30  (cont. ) 
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E.  ZC  300.  SUBMARINE  THRUST 
1.  DESCRIPTION 


This  program  solves^  equation.  18  for  axial  thrust  or  force,  HO  U  , 
and  axial  acceleration  Cl  . 

u'^biUU,.  *  C:  Utl]  (i8) 


U-  s  axial  acceleration,  (ft/sec2) 
hrt  U.  ■  force,  (lb) 

PO  s  mass,  (slug  16-sec^) 

f  *  density,  (1.995  slug/ft3) 

Ji  -  length,  (ft) 

n,  hi  C *  dimensionless  constants  depending 
ML'Dt'  Lt  onvalu.  of  ^  (Ut/U) 

tC  s  submarine  axial  velocity,  (ft/sec) 

Uc  »  command  speed,  (ft/sec) 

Three  sets  of  constants  are  used  for  a^,  b^,  and  c^  depending  on  the 
value  of  ^  as  compared  to  ^  high  and  ^  low  in  equation  19. 

Q|  b,  Cj  ~±>/  h i ^ 

a,  cx  <7  <  Tm  (w> 

4,  b,  C-?  1  ^ 


C7  i 

At  u  =  0  equation  20  is  used, 

ut  >/  0 
U.<  0 


1  =1 

1  :  -l 


2.  INPUT  DATA  DECK 

The  input  variables  are  submarine  length,  mass,  ^high,  \  low,  and 
the  three  values  of  ai,  bit  and  c*.  They  are  punched  on  cards  according 
to  table  11, 
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TABLE  11.  INPUT  DATA  DECK,  PROGRAM  ZC300 


Card 

Column(s) 

Format 

Description 

1 

1-10 

F10.3 

A L,  submarine  length 

11-20 

F10.3 

AM,  submarine  mass 

21-30 

J10. 3 

ETAHI,  upper  value  of 
for  coefficient  change 

31-iiO 

F10.3 

ETALO,  lower  value  of 
for  coefficient  change 

2 

1-10 

F10.6 

A1 

11-20 

F10.6 

*2 

21-30 

F10.6 

A3 

3 

1-10 

F10.6 

% 

11-20 

F10.6 

B2 

21-30 

F10.5 

B3 

h 

1-10 

F10.6 

C1 

11-20 

F10.6 

C2 

21-30 

F10.6 

_A . . . 

3.  OUTPUT  DATA 
The  output  includes 

a.  AH  input  variables 

b.  Table  of  force  (thrust)  as  a  function  of  conmand  speed  from  -15 

to  *30  knots  (  £^5  knots)  and  for  values  of  U  from  0  to  30  knots 

(  2.5  knots) 

c.  Table  of  acceleration  as  function  of  same  velocity  variables 
as  b.  above. 

L.  LISTINGS  AND  FLOW  CHARTS 

The  listings  and  flcv  chart  for  program  ZC300  are  included  in 
appendix  I. 
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F.  2C690.  ERROR  CALCULATOR,  PS  ♦  DR  CON TROL 
1.  DESCRIPTION 

This  program  calculates  ;  rercent  error  of  change  in  a  variable. 
Inputs  are  from  EB920,  Submarine  Simulation  Program  -  U  at  60  seconds, 
theta  high,  phi  mini,  phi  (peak  near  T  ■  max),  and  psi  at  60  seconds. 
The  program  calculates  the  change  of  each  variable  from  value  at  t  =  0 
for  the  original  program  coefficients.  Then  a  coefficient  is  set  to 
zero  and  the  changes  recalculated  and  compared  to  the  reference  run  as 


%  change  (  U,  ) 


100 


These  calculations  are  printed  out  with  all  input  data  for  5,  15, 
and  25  knots.  Figure  15  shows  the  criteria  used  for  comparison  for  each 
of  the  variables. 

2.  INPUT  DATA  DECK 

Table  12  gives  the  format  for  the  input  data  deck  for  this  program. 
TAHLE  12.  INPUT  DATA  DECK,  PROGRAM  ZC69O 


Card 

Column(s) 

Format 

Description 

1 

1-U 

Hi 

:  N015,  1st  run  at  15  knots 

11-lii 

Hi 

N025,  1st  run  at  25  knots 

2 

l-u 

Hi 

Run  number,  NO 

11-18 

2  All 

Coefficient  set  to  zero,  COEF 

21-30 

F10.5 

Value  of  u  at  60  sec,  U60 

31-li0 

F10.6 

Peak  value  of  theta,  THETHI 

la-so 

F10.8 

Minimum  value  of  phi,  PHIMIN 

51-60 

F10.8 

Peak  value  of  last  oscillation 
of  phi,  PHIUP 

61-70 

F10.6 

Value  of  psi  at  60  sec.,  PSI60. 

2-N 

Repeat  above 

card  as  deslr< 

i 

id 

N 

Blank  card  for  end  of  data 
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CV'^***1*  Vf  Co^h  pi>ri$«K 


VOo. 


Figure  15.  Comparison  Criteria  for  Error  Calculator 
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3.  OUTPUT  DATA 
The  output  includes 

a.  Percent  change  in  (see  figure  15)» 

1.  ^u(60) 

2.  A  theta(peak) 

3.  ^Phi(ndn) 

U.  A  phi(lobe) 

5.  A  pai(60) 

b.  All  input  variables 

h.  LISTINGS  AND  FLOW  CHART 

The  listings  and  flow  chart  for  program  ZC690  are  given  in  appendix  A. 
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G.  ZC691 ,  ERROR  CALCULATOR,  PS  CONTROL 

1.  DESCRIPTION 

This  program  calculates  the  percent  error  or  change  in  a  variable 
compared  to  change  of  a  reference.  Inputs  are  from  EB920,  submarine 
simulation  program.  Reference  data  is  data  for  u,  0,  and  z  from 
EB920  for  original  coefficients  at  5,  15,  and/or  25  knots.  Comparable 
data,  (see  figure  !$)  is  taken  from  the  output  of  T,1B920  for  setting  a 
coefficient  (COEF)  to  zero,  or  varying  values  of  XG  and  ZG  for  center 
of  gravity  studies.  The  program  calculates  values  such  ass 


%  change  (u) 
for  u,  0,  and  z 


100 


_  J 


This  program  differs  from  ZC690  in  that  a  new  reference  run  can  be 
used  at  each  comparison  rather  than  only  one  reference  at  the  start. 

The  reference  run  can  be  compared  to  either  a  single  run  (variable 
ISW2  =  1  in  the  program)  or  to  a  group  of  runs  (ISW2  =  0) . 

2.  INPUT  DATA  DECK 

Table  1?  gives  the  format  of  the  input  data  deck  for  this  program. 


TABLE  13.  INPUT  DATA  DECK,  PROGRAM  4C691 


,  Card 

Column (s) 

Format 

Description 

1 

1-4 

14 

Run  number  of  first  case  at 

15  knots  (25  if  no  15  knot 
case),  NCI  5,  right-adjust 

11-14 

14 

Run  number  of  first  case  at 

25  knots,  N025,  ri.-'ht  ad  lust 

21 

11 

I3W2,  option  for  group  or 
individual  run  comparison 

2 

1-4 

14 

Run  number,  NO 

11-1.0 

2A4 

Coefficient  s**t  to  **ro 
v.  if  usep),  COEF 

9  J 

1 

•4 

O 

F10 

Value  of  u  min,  1 

■’1-40 

FI  ) 

Value  f  t‘«ta  TH.-7T  1 

41-50 

FI? 

Value  ~V  -  -»t  6?  «**»<•,,  41 
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TABLE  13.  INPUT  DATA  DECK,  PROGRAM  ZC691  (cont.) 


Column (s) 

Format 

Description 

51-60 

F10 

Xg  (if  used) ,  XG 

61-70 

F10 

Zg  (if  used) ,  ZG 

Repeat  card  No.  2  as  desired  for  each  comparison  run 

New  reference  card  for  new  (15  knot  or  25  knot) 
speed  range 

Repeat  card  No.  2  as  desired  for  each  comparison  run 
Repeat  cards  n+1  and  n-M  for  25  knot  speed  range 
Blank  card 


Table  14  and  15  give  examples  of  the  two  types  of  input  decks 
that  can  be  used. 


TABLE  14.  DATA  SUBMITTAL  FOR  ISW2  =  0,  ZC691 


Use 


Speed  change  run  NO's,  Comparison  switch  (ISW2  =  0) 

Reference  run  data 

Comparison  run  data 

Repeat  card  3  as  required 

New  ref  run  data  at  next  speed  range 

Comparison  run  data 

Repeat  card  n+2  as  required,  etc. 
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TABLE  15.  DATA  SUBMITTAL  FOR  ISW2  =  1 ,  EC961 


Card 

Use 

1 

Speed  change  run  numbers.  Comparison  switch  (ISW2  =  1) 

2 

Reference  run  data 

n 

Comparison  run  data 

4 

Reference  run  data 

5 

Comparison  run  data 

6-n 

Repeat  card  2  as  required  right  through  speed  changes 

7-n+1 

Repeat  card  3  as  required  right  through  speed  changes 

3.  OUTPUT  DATA 
The  output  includes 

a.  Percent  change  in 

1 .  ^  u 

.1 .  theta 

3.  Aj 

b.  All  input  quantities  and  initial  conditions 

4.  LIJriWdS  A  I’D  FLOW  CHART 

The  listings  and  flow  chart  for  program  ZOO?1  ”re  ,'lven  in 
Appendix  A. 
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H.  EClltO.  ROOT  CRACKER  PROGRAM.  LONGITUDINAL 
1.  DESCRIPTION 


This  program  is  used  to  help  analyze  submarine  elevator  impulse 
response  for  natural  frequencies  and  damping  factors.  The  program  solves 
the  roots  of  the  characteristic  equation  which  in  turn  was  solved  from  a 
matrix  of  the  longitudinal  force  terms  of  the  equations  of  motion. 


These  loots  are  equivalent  to  the  values  ^  ,  p  ,  and  of  equation 

(21). 

yf  . 

m  =  a,t  +  u.e  c  os>(pt+*) 

J  2  (21) 


which  is  the  longitudinal  time  output  response  to  an  impulse  input.  The 
variables  a]_,  a2,  and  ^  (as  well  as  an  additional  estimate  of  x  ,  p  , 
and  75  )  can  be  estimated  from  program  EC330,  Time  Response  Coefficient 
Estimator,  Longitudinal.  Then  the  frequency  response  to  a  particular 
impulse  as  described  by  equation  (21)  can  be  calculated  and  plotted  in 
program  EC310,  Brown's  Convergence  and  Comparative  Plot  Program,  against 
an  actual  impulse  plot  made  from  an  EB920,  Submarine  Simulation  Program 
run. 


Equation  (22)  shows  the  matrix  formed  from  the  longitudinal  terms  of 
the  equations  of  motion.  The  assumptions  and  modifications  that  were  used 
to  simplify  the  matrix  are  noted.  The  values  of  w  and  q  aro  average 
values  of  these  terms  as  taken  from  a  number  of  actual  full  set  runs  of 
a  submarine  at  steady  state  conditions  on  program  EB920,  Submarine  Simula¬ 
tion  Program.  These  values  are  used  as  a  compensation  for  the  non-linear 
terras  in  the  longitudinal  loop  by  modifying  the  basic  coefficients.  For 
example, 


2.  VJ  c? 

c  t**l  b 


where  q  is  an  average  value  of  |q  |  used  as  a  constant. 

Several  of  the  coefficients  shown  in  the  matrix  of  equation  (22) 
are  combined  inside  this  program  to  provide  more  simple  matrix  elements. 
These  are  used  in  the  actual  matrix  solved  and  are  printed  out  for 
convenience.  These  new  values  of  combined  coefficients  will  be  shown  as 
primes  here  (are  printed  without  primes)  such  as 


7h 


H&tn*  tn  St  UovM\4u^m«(  Case9  (22) 
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0  0  0 


o  0  9 


II  »l  0 


*  3  ?  I 

v  a  3® 3 

Xiirlr 


*5  9  3 

4  3  »3 


'5  |  | 


0 

0  " 

0  •  & 

"  j  H  *. 

ft,  J 

-  »  u 

l«  **  •  «~ 


b  * 

oi'  H 


r** 


75 
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The  matrix  element,  (1,  2),  equation  (22),  if  then  carried  to  the 
matrix  as 


This  same  simplification  is  carried  out  for  the  other  modified 
coefficients  — 

*  flfcda. 

1  ii 


M 


% 


(A 


w 


1 


U. 


and 


7  '  r  7  +-  a  -Z*dhd  ^ 

U.  tu 


The  characteristic  equation  resulting  from  the  expansion  of  equation 
(22)  is  a  fourth-order  equation  which  has  four  roots j 


^  *N  P  ,  J  ?  *  +  J°  >  S>jO 


and  p  are  the  real  and  imaginary  consonants  of  the  complex 
roots.  If  is  the  larger  of  the  two  real  roots,  is  the  smaller. 
Only  three  roots  are  used  in  the  analysis  of  longitudinal  natural  fre¬ 
quencies  and  damping  factor.  The  fourth  root  (smallest  real  magnitude) 
has  a  very  small  coefficient  in  the  time  domain  and  represents  a  long 
term  effect  due  to  changes  in  U  (forward  speed).  This  term  can  thus  be 
ignored  when  considering  pitch  motions,  but  the  other  roots  are  more 
accurate  if  this  term  is  included  in  the  matrix. 

Certain  measurement  parameters  are  calculated  from  the  roots  by 
this  program.  They  ere  the  natural  frequency 

i-  p*- 


the  time  to  danp  to  one-half 


the  period 


h±i 


UL 

p 
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TABLE  16.  INPUT  DATA  DECK,  PROGRAM  EClliO  (cont.) 


Card 

ColtumCs) 

Format 

Description 

h 

11-20 

F10.5 

M,  submarine  mass,  slugs 

h 

21-30 

FLO.  5 

IY,  moment  of  inertia  about 
the  y-axis,  slug-ft* 

h 

31-iiO 

FLO,  5 

B,  submarine  buoyancy,  pounds 

h 

Ui-50 

F10. 5 

ZB,  Zg,  z-component  of  center 
of  buoyancy,  feet 

h 

51-60 

FL0.5 

RHO,  fi  density  of  seawater, 
slugs/fv 

5 

1-10 

FLO.  5 

U,  u,  forward  velocity,  knots 
Stack  as  many  U  cards  as  de¬ 
sired.  Place  a  blank  card 
after  the  last  U  card  for  that 
set.  Repeat  all  above  cards 
as  desired  for  a  new  case 
with  different  coefficients. 

last 

l-u 

FU.3 

999,  The  program  takes  normal 
end  of  job  with  this  card. 

U.  OUTPUT  DATA 


Figure  16  shows  a  typical  output  sheet  from  this  program. 

a.  Input  data  -  all  input  data  is  printed  out  in  the  units 
described  above. 

b.  The  factors  Al,  A2,  etc.,  of  the  characteristic  equation  are 
printed  out.  For  this  Uth  order  equation 

AJ  s4  M2  s'  M3  %x  lAls  ►  A  *T  -  0 

c.  Roots  -  The  four  roots  of  the  characteristic  equation  are 
printed  out, 

d.  Measurement  Parameters  -  The  natural  frequency,  time  to  danqp 
to  one-half,  period  and  the  danping  ratio  are  printed  out. 

5,  LISTINOS  AND  FLCW  CHART 

The  listings  and  flow  chart  for  program  EC1L0  are  given  in  Appendix  A. 
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I.  EC32Q  ROOT  CRACKER  PROGRAM,  LATERAL 

1,  DESCRIPTION 

This  program  is  used  to  help  analyze  submarine  rudder  impulse  response 
for  natural  frequencies  and  damping  factors.  The  program  solves  for  the 
roots  of  the  characteristics  equation  which  in  turn  was  solved  from  a 
matrix  of  the  lateral  force  terms  of  the  equations  of  motion. 

These  roots  are  equivalent  to  the  values  ^  ,  3  ,  "2T,  and  5  of 
the  equation  belowt  ' 

-  Cv,  t  ±alc  coi(  ft  +  y  * 


which  is  the  lateral  time  output  response  to  an  impulse  input.  The 
variables  a.,  aj,  a^,  and  ^  can  be  estimated  from  program  EC150,  Time 
Response  Coefficient  Estimator,  Lateral.  Then  the  frequency  response  to 
a  particular  impulse,  can  be  calculated  and  plotted  in  program  EC310, 
Browns  Convergency  and  Comparative  Plot  Program,  against  an  actual  impulse 
plot  made  from  an  EB920,  Submarine  Simulation  Program  run. 


Equation  (23)  shows  the  matrix  formed  from  the  lateral  terms  of  the 
equations  of  motion.  The  assumptions  and  modifications  that  were  used  to 
simplify  the  matrix  are  noted.  The  values  of  p,  ?,  and ^  are  average 
values  of  these  terms  as  taken  from  a  number  of  actual  full  set  runs  of 
the  submarine  at  steady  state  conditions  on  program  EB920,  Submarine 
Simulation  Program.  Figure  17  qualitatively  shows  the  errors  inherent  in 
the  substitution  of  one  of  the  values,  say  P  for  |H  .  These  values  are 
used  as  a  compensation  for  the  non-linear  terms  in  the  lateral  loop  by 
modifying  the  basic  coefficients.  For  example, 


/V  •  /V 


r( flftt 


4  \/ 

(  rsl  1  *  <A.r  1  )  ^ 

*  r  ,  .  -v* 

'  *rl  v*| 

v  / 

where  fir  is  an  average  value  of  housed  as  a  constant, 

Y.v  and  Y«r|/v'{  are  combined  into  a  single  tern  in  the  matrix.  A 
similar  prooess  is  used  for  (p|  and  |rl  ,  set  to  $  and  ?  respectively. 

Several  of  the  coefficients  shown  in  the  matrix  are  combined  within 
this  program  to  provide  more  simple  natrix  elements.  These  are  used  in 
the  aotual  matrix  solved  and  are  printed  out  for  convenience,  These  new 
values  of  combined  coefficients  will  be  shown  as  primes  here  (are  printed 
without  primes)  such  as>  _  a  v/  — 

w  '  Y  ^  Y,-iv>  *  *  U-IH  l 


*Aa^«*»*  m  La*era\  Ca«e. 
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Figure  17.  Error  in  Use  of 


NAVTRADEVCBJ  68-C-0050-2 


The  matrix  element,  (1,1)  equation  (1),  is  then  carried  to  the  matrix 
as 


This  same  simplification  is  carried  out  for  the  other  modified 


coefficients, 

V 

ii 

-A  jfiri  P 

T 

uc- 

--  K-v 

a 

^  a. 

T 

k; 

nC 

Kr 

-  N« 

-£JLtU  i,  p _ 

+ 

A/ vi  vi  /ir 

u. 

i< 

~  No, 

iAinl  n.i  /T  +  j\i 

UL 

The  characteristic  equation  resulting  from  the  expansion  of  equation 
(21) is  a  fourth-order  equation  which  has  four  roots 

s>C-*-jp  X  -  J  |3  T  *jO 

which  can  be  used  in  impulse  response  equation, 

2,  SUBROUTINE  DESCRIPTIONS 

a.  PLACE  -  This  routine  places  each  element  of  the  matrix  similar 

to  table  in  its  location  in  the  matrix  ready  to  expand  into 

the  characteristic  equation. 

b.  CHREQN  -  This  subroutine  expands  the  matrix  formed  ty  sub¬ 
routine  PLACE  into  the  characteristic  equation  by  taking  the 
determinant  of  the  matrix. 

c.  MULLER  -  This  subroutine,  by  the  method  of  Muller,  calculates 
the  roots  of  the  characteristic  equation. 

3.  INPUT  DATA  DECK 

The  input  variables  to  the  program  include  the  coefficient  and  sub¬ 
marine  constants  noted  in  the  matrix  of  equation  (13).  They  are  Identified 
in  detail  with  their  locations  in  table  17. 
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TABLE  17.  INPUT  DATA  DECK,  PROGRAM  EC320 


Card 

Column(s) 

!  Format 

Daacription 

1 

1-60 

1 

6F10.5 

YVD,  TV,  YPD,  YP,  YRD,  YR 

2 

1-60 

6F10.5 

AKVD,  AKV,  AKPD,  AKP,  AKRD, 

AKR 

3. 

1-60 

6F10.5 

ANVD,  ANV,  ANPD,  ANP,  ANRD, 

ANR 

U 

1-10 

F10. 5 

AL,  submarine  length,  feet 

k 

11-20 

F10.5 

AM,  submarine  mass,  slugs 

h 

21-30 

FLO.  5 

IX,  movement  of  inertia  about 
the  X-axis,  slug-ft^ 

h 

314,0 

F10.5 

IZ,  movement  of  inertia  about 
the  axis  slug-ft* 

h 

lil-50 

no.  5 

B,  buoyancy,  pounds 

h 

51-60 

no.5 

ZB,  z-component  of  center  of 
buoyancy  -  feet 

h 

61-70 

no.  5 

RHO,  y  density  of  sea  water- 
slugs/ft* 

5 

1-10 

8no.5 

YVAV,  YVAR,  YPAP,  AKVAV,  AKPAP, 
ANVAV,  ANRAR,  ANAVR 

6 

1-10 

no.5 

RBAR,  P,  average  yaw  rate, 
based  cn  a  number  of  full  set 
runs,  radians/second 

6 

11-20 

no.5 

VBAR,  v,  avsraga  normal 
velocity,  feet/second 

6 

21-30 

no.5 

PBAR,  p,  average  roll  rate, 
radians/second 

7 

1-5 

• 

15 

IDIV,  this  option  allows  the 
program  user  to  divide  YVAV# 
VBAR,  YVAReRBAR,  YPAP*PBAR, 
KVAVeVBAR,  KPAP*PBAR,  NVAV* 
VBAR,  NAVReRBAR  and  NAVRsVBAR 
by  velocity,  before  punching 
cards  or  letting  the  computer 
do  the  division. 
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TABLE  17 .  INPUT  DATA  DECK,  FROGRAM  EC320  ( cont . ) 


Card 

Column( s ) 

Format 

Description 

0  User  to  divide 

1  Computer  divides  by 

8 

1-10 

FLO.  5 

forward  velocity,  knots. 
Stack  as  many  per  set  of  co¬ 
efficients  as  desired.  Place 
a  blank  card  after  last  card 

of  each  set.  This  causes  next 
case  to  be  read. 

last 

1-5 

F5.U 

9999.  The  program  takes 
normal  end  of  job  with  this 
card. 

h.  OUTPUT  DATA 

Figure  18  of  program  ECliiO  shows  a  typical  output  from  this  program 
except  that  the  measurement  parameters  are  not  calculated. 

a.  Input  data  -  all  input  data  (except  IDIV)  is  printed  out  in 
the  units  detailed  above. 

b.  The  factors  Al,  A2,  etc.,  of  the  characteristics  equation  are 
printed  out.  For  this  Lth-order  equation 

Al  -  '  +  A2*1  *  +A  -i  a  **  -  O 

c.  Roots  -  the  four  roots  of  the  characteristic  equation  are 
printed  out. 

5.  LISTINGS  AND  FLOW  CHART 

The  listings  and  flow  chart  for  the  main  program  of  EC320  are  given 
in  appendix  A.  The  subroutine  listing  and  flow  charts  are  Identical  to 
those  of  program  ECliiO. 
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Figure  18.  Output  Variable  Format,  EC320 
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J.  EC150.  COEFFICIENT  ESTIMATOR,  LATERAL 
1.  DESCRIPTION 

The  response  to  a  rudder  impulse  (lateral  case)  of  a  submarine  can 
be  approximated  by  the  equation  (21*) 

v-jW  ■»  a,  e’r<*  a,t  **cos.  (pt *+)■>£»,  e  (?fc) 


where  y  =  roll  angle  of  the  submarine,  radians 

t  =  time,  seconds 

2T/o*(  %  ■  roots  of  the  characteristic  equation  or  dancing 

factor  of  the  individual  components 
(3  =  frequency  of  oscillating  term,  radians/second 

f  =  phase  delay,  radians 
Ca,  c,.  c i,  =  coefficients  of  magnitude  of  each  term 

It  is  often  quite  useful  to  determine  the  magnitude  of  all  the  terms 
on  the  right  side  of  equation  (21*)  for  a  particular  response  to  a  lateral 
control  impulse  to  a  submarine  in  motion. 

Values  for  y(t)  can  be  calculated  by  solving  the  detailed  "Standard 
Equations  of  Motion  for  Submarine  Simulation".  GAC  program  EB920  will 
perform  these  calculations  over  the  time  period  desired.  This  program 
will  also  punch  output  cards  with  time  and  .  This  data  deck  will  be 
used  later.  Program  EB920  further  provides  a  computer  plot  of  versus 
time  as  shown  in  figure  19  when  CALCOMP  plotter  subroutines  are  available. 

Program  EC320,  Root  Cracker  Program  (Lateral  Case),  solves  for  the 
roots  of  the  characteristic  equation  using  the  matrix  Laplace  form  taken 
from  the  equations  of  motion.  These  roots  are  used  for  initial  values 

,  and  $  in  equation  (24)  above.  They  are  not  exact  because 
of  the 'program  linearization.  These  values  are  inputs  to  program  EC15>0, 
time  response  coefficient  estimator,  lateral,  which  will  estimate  the 
values  Q,  ,  ,  and  ,  The  punched  data  deck  from  EB?20  is  the 

only  other  input  data  required. 

The  program  calculates  the  following: 

a.  To  find  ^  I 

At  (figure  19),  the  actual  detailed  calculated  curve  has 
decayed  sufficiently  that,  for  this  calculation,  the  a^  and  a} 
terms  may  be  considered  zero.  For  all  response  curves  having  the 
first  lobe  after  t  s  0,  the  a$  term  is  negative.  Therefore,  the 
positive  peaks  of  figure  19  are  equivalent  to  peak  negative  (-) 
values  of  the  cosine  term 

cos  (  -f)  •  -j  ;/?t,fW=7T 

'  *  1  (25) 
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Figure  19.  SubMrlne  Response  Curre,  Liter*  l  Case 
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or 


y  r  (  |?  -7r)  -2^*  f  Y)  ■*  O, 1) 


(26) 


The  last  term  of  equation  (26)  merely  subtracts  multiples  of  360° 
from  this  calculated  value  of  •f'  to  keep  it  an  equivalent  smallest  number. 
This  program  automatically  uses  the  value  of  the  peak  of  the  ladt  lobe 
(searched  out  from  the  data  deck)  for  the  magnitude  and  time  of  "t a, 

b.  Time,  T0,  at  which  the  a^  term  of  equation  (2ii)  is  negligible! 


U  I 

E 


(27) 


The  printout  data  will  provide  T  and  also  the  values  of  and  . 
Value  of  T0  should  be  checked  to  verify  that  It  is  less  than  .  Other¬ 
wise,  EB920  may  have  to  be  run  for  a  longer  time  to  provide  good  input 
data  for  this  program. 


c.  To  find  a2: 


Using  values  of  and  tg-  (selected  automatically  from  the  data 
deck  input  by  this  program)  and  assuming  that  the  a-i  term  is  zero: 
-(ft., 


e 


is 

Q, 


-yts~  tf 

Ck^  t  -  ^2  € 


-«r(tc -t.) 

e 

t ;  '"i x  t 


(28) 

(29) 

(30) 


d.  To  find  a^: 


Substitute  the  value  of  a2  just  found  into  equation  (27) 

— cx  t-  ^ 


a 


,  lx 


+  a,  e 


(31) 


e.  To  find  a^t 

At  t  *  0,  equation  (?li)  can  be  arranged  as: 

n,  -  -(a, 


(35) 


These  values  *{?  ,  a^,  a2>  and  a-j  are  outputs  of  the  program  EC150. 
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They  may  then  be  used,  with  the  values  of  ^  ^  ^  ,  and  & 

from  the  Root  Cracker  program  in  EC310,  Curve  Fitting  Program.  This 
program  will  take  these  eight  terms,  calculate  a  set  of  values  versus 
time,  and  plot  against  the  exact  calculated  response  values  of  EB920 
for  comparison  as  shown  in  figure  19. 

Program  EC310  has  an  option  for  convergence  of  six  of  the  terms  of 
equation  (2la)  for  optimum  values  by  use  of  Brown’s  routine,  %  and  a? 
are  usually  held  constant.  This  option  can  be  exercised  separately  ana 
plots  run.  The  function  will  sometimes  converge  more  closely  than  figure 
ly,  and  a  very  satisfactory  set  of  values  for  the  terms  of  equation  (2k) 
will  be  available.  However,  due  to  the  approximations  involved  in  EC320 
and  EC150,  the  function  (which  is  converged  through  Brown’s  routine  and 
needs  very  close  initial  values  of  all  terms)  may  not  converge.  In  this 
event,  additional  calculations  or  intuitive  estimates  for  closer  values 
of  some  or  all  terms, ^  ,  j?  ,  Y  ,  6  »  'Y  ,  *1>  and  a 3  may  need  to  be 

made  and  the  last  one  or  two  steps  above  repeated. 

Even  though  final  convergence  may  not  be  achieved  with  terms  cal- 
culated  through  EC320  and  EC150,  the  first  plot  of  estimated  values  (of 
the  nature  of  figure  19)  is  a  very  useful  starting  place  for  final  con¬ 
vergence  attempts. 

2.  INPUT  DATA  DECK 

The  input  data  consists  principally  oft 

a.  Punched  cards  from  impulse  run  of  EB920  Submarine  Simulation 
Program  punched  at  two  second  intervals. 

b.  Values  for  ^  ,  2  ,  *5  ,  and  &  from  EC320,  Root  Cracker,  3D, 
Lateral  program. 

The  data  deck  format  is  given  in  table  18. 


TABLE  18.  INPUT  DATA  DECK,  PROGRAM  EC150 


Card 

Column(s) 

Format  i 

; 

Description 

1 

1-5 

15 

N,  number  of  data  points  from 
EB920  nan  (one  per  punched 
card) 

2 

1-10 

F10.5 

U,  submarine  speed,  knots 

2 

11-18 

2Ak 

NAME,  use  the  word,  PHI.  For 
use  as  y-axis  label  on  tabu¬ 
lated  printout  data  sheets 

3-n 

1-10 

Q.5.7 

PHI(I)  values  on  punched  cards 
from  EB920,  radians 
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TABLE  18.  INPUT  DATA  DECK,-  PROGRAM  EC130  (cont.) 


Card 

Column(s) 

Format 

Description 

3-n 

11-20 

EL5.7 

T  values  on  punched  cards 
from  EB920,  seconds 

n+1 

1-10 

F10.5 

A,  ,  value  of  root  calcu¬ 
lated  in  EC320,  Input  value 
must  be  a  positive  number 

n+1 

11-20 

F10.5 

B,  f?  ,  value  of  root  from 

EC320,  input  as  a  positive 
number,  radians/second 

n+1 

21-30 

*10.5 

G,  ti  ,  value  of  root  from 

EC320,  input  as  a  positive 
number 

n+1 

•31-1*0 

*10.5 

D,  &  ,  value  of  root  from 

EC320,  input  as  a  positive 
number 

n+2 

Blank  card  for  normal  end 
of  job 

1*.  OUTPUT  DATA 


The  output  includes  sequentially  numbered  papers  each  identified 
with  EC150.  The  following  terms  are  printed: 

U  -  submarine  speed,  knots,  PHI(I)  -  all  the  values  of  the 

impulse  run  of  EB920  as  read  by  the  card  inputs  to  this  program 

YMIN  -  the  value  of  PHI  at  “t.?  (see  figure  19)  as  selected  from  the 
input  cards  from  EB920,  radians 

YMAX  -  the  value  of  PHI  at  ,  radians 

TO  -  ,  time  at  which  the  a^  term  of  equation  (?U)  is  negligible, 

seconds 

Hi  -  £*/,  last  peak  value  of  oscillating  function  as  selected  from 
the  input  cards  from  EB920,  seconds 

T5  -  '^s" ,  last  minimum  value  of  oscillating  function,  seconds 

A  •  »<  ,  value  from  EC320 

B  -  j?  ,  value  from  EC320 

G  -  y  ,  value  from  EC320 

P  -  V  or  PSI,  calculated  phase  delay,  radians 
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A1  -  a^,  calculated  constant  for  equation  (2b) 

A2  -  a calculated  constant  for  equation  (2b) 

D  -  §  ,  value  from  EC320 
A3  -  a^,  calculated  constant  for  equation  (2b) 

5.  LISTINGS  AND  FLOW  CHART 

The  listings  and  flow  chart  for  program  EC150  are  given  in 
appendix  A. 
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K.  EG330.  COEFFICIENT  ESTIMATOR.  LONGITUDINAL 

1.  DESCRIPTION 

Tha  response  to  an  elevator  impulse  (longitudinal  case)  of  a  sub¬ 
marine  can  be  approximated  by  equation  (33) 

-tft  -*t  .  ,  . 

^  It)  =  a,  t  +  ^2  e  cou(pt^)  (33) 

where 

y  =  pitch  angle  (theta)  of  the  submarine,  radians 
t  s  time,  seconds 

*t,  *  roots  of  the  characteristic  equation  or  damping 

factor  of  the  individual  components 

[3  «  frequency  of  oscillating  term,  radians/second 

^  =  phase  delay,  radians 

s  dimensionless  coefficients  of  magnitude  for  each  term 

It  is  sometimes  necessary  to  determine  the  magnitude  of  all  the  terms 
on  the  right  side  of  equation  (33)  for  a  particular  response  to  a  longitu¬ 
dinal  control  inpulse  to  a  submarine  in  motion.  This  program  provides  a 
method  for  securing  first,  reasonable  approximations  of  the  terms? 

i  P,  ^  ^Z. 

The  exact  response  to  a  specific  impulse  can  be  calculated  by  solving 
the  equations  of  motion.  GAC  program  EB920  will  perform  these  calculations 
over  the  time  period  desired.  This  program  (EB920),  in  addition,  will  punch 
cards  of  the  output  value,  I  or  theta,  versus  time.  (Time  intervals  of 
punch  data  should  be  two  seconds  for  use  in  EC330).  This  data  deck  will  be 
used  as  an  input  to  the  subject  program,  EG330,  Program  E9920  further  can 
provide  a  computer  plot  of  Y  (THETA)  versus  time  as  shown  in  figure  20. 

The  computer  makes  the  following  sets  of  calculations: 

A  -  The  first  approximation  for  (See  figure  20)  is  taken  as  a 

'  half  cycle  for  the  period  tj.  through  t*.  The  conputer  searches 
the  input  data  for  these  two  points  ana  takes  the  differences 

.  p  =  /v/p 


93 


NAVTRADEVCEN  68-C-0050-2 
^  -  at  assuming  a-^  term  is  zero: 

Co%(  ptt  - 1)  -  0 

f  *  pti  ~  Vi. 

^  -  assuming  term  is  zero. '  Assume 

tj  --  t,  -  p/2  .  +,  -  t,-p/z 

The  conputer  will  interpolate  from  the  input  data  to  find  the 
ordinate  values  of  points  t-j  and  t^.  Then 

%_  m  _ 

If  q-i e  -**» 

..  -1,/^ 

^ .  Jzd^LLhL- 

*  tj 

a2  -  assume  a^  term  is  zero 

i  -^<  t? 

Q(  r  -^^CobC'f) 

V  -  from  equation  (33) 

-r  -.x  t(c) 

<r 
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These  calculated  values  are  printed  out  as  the  initial  estimates. 
Since  the  first  estimate  assumed  the  term  was  zero  and  we  now  have 
a  value  for  this  term,  new  estimates  can  be  made. 

a  pin  ~  — 

'  °i  *  ^  e ' v 

j  ^  i 


n  (/uln)  /  p 

.-ft* 

is]  —  ' 

-dl  ns*  '  - *- 


—~r 


a, 


n  *>  u 


-  ^  2  Coif 


y  .  .  J_  i  /  ^ 

'  tUj  \  air,.w 


These  values  are  printed  out  in  the  second  (improved)  estimates 
along  with  the  estimates  of  and  ^ made  above. 

The  second  estimates  may  not  be  adequate  due  to  unsatisfactory  mathe¬ 
matical  assumptions.  The  values  of  «]_  and  can  be  estimated  a  third  way 
and  used  if  they  subsequently  prove  more  accurate  than  2nd  Estimate  values. 


a? 


al 


—  o2  C 


o--.r 


These  new,  alternate,  values  of  a-j^  and  are  printed  out  as  the  third 
estimate  along  with  the  other  printed  values  of  the  second  estimate. 

"he  values  confuted  above  (first  choice  should  be  the  second  estimate 
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output  values)  may  be  used  in  program  EC31G,  Curve  Fitting  Program  along 
with  the  data  deck  cards  (T  and  THETA)  from  the  impulse  run  on  EB920  and 
originally  used  as  inputs  to  the  subject  program,  EC330,  This  program, 
EC310,  will  calculate  and  plot  the  values  of  y  versus  t  from  equation  (33) 
for  the  estimated  coefficients.  It  will  also  plot  the  original  impulse 
data  from  EB920  as  recorded  on  the  punch  card  data.  The  first  graphical 
recording  of  these  two  curves  will  show  whether  a  satisfactory  agreement 
of  the  equation  (33)  values  (with  newly  estimated  variables)  and  the 
equations  of  motion  data  are  adequate.  Figure  20  shows  excellent  con¬ 
vergence  of  these  values. 


If  these  curves  do  not  overlay  satisfactorily  program  EC310  may  be 
renin  with  the  convergence  option.  The  variables  of  equation  (33)  are 
optimized  to  convergence  by  Brown’s  routine.  The  function  wjll  sometimes 
converge  and  a  new,  satisfactory  set  of  values  (^,  f*  ,  0  ,  etc.)  will 
be  calculated.  If  convergence  is  not  achieved,  additional  calculations 
or  intuitive  estimates  of  closer  values  can  be  used.  These  can  be  resub¬ 
mitted  to  EC310  for  proof  till  convergence  is  reached, 

2.  INPUT  DATA  DECK 

The  input  data  consists  principally  of 

a.  Punohed  cards,  cards  of  time  and  Theta  from  impulse  run  of 
EB920,  Submarine  Simulation  Program,  punched  at  two-second 
intervals. 

b.  Additional  control  data 

The  data  deck  format  is  given  in  table  19. 


TABLE  19.  INPUT  DATA  DECK,  PROGRAM  EC330 


T 


Card 

Column(s) 

Format 

1 

1-5 

15 

2 

1-10 

no.5 

2 

11-18 

2AU 

3-n 

1-10 

E15.7 

3-n 

11-20 

E15.7 

n*l 

Description 


N,  number  of  data  points,  Y(I) 
from  EB920  run  (one  per  punched 
card) 

U,  submarine  speed,  knots 

NAME,  the  name  of  the  dependent 
variable,  THETA 

THETA(I)  values  on  punched 
cards  from  EB920,  radians 

T,  time  values  on  punched 
cards  from  EB920,  seconds 

Blank  card  for  normal  end 
of  job 
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3.  OUTPUT  DATA 

The  output  data  includes  sequentially — numbered  pages,  each  identified 
EC330.  The  following  terms  are  printed: 

U  -  submarine  speed,  knots 

T(l)  and  THETA(I)  -  all  the  values  of  the  impulse  run  of  EB920  as 
read  by  the  card  inputs  to  the  subject  program 

A,  B,  G,  P,  Al,  A2  -  First  estimates  as  described  in  equations 
2  through  7  above, 

A,  B,  G,  P,  Al,  A2  -  Improved  estimates  as  noted  in  equations 
8  through  11  above. 

A,  B,  G,  P,  Al,  A2  -  Alternate  estimates  for  a^  and  a?  as  descri  bed 
in  equations  12  and  13  above. 

U.  LISTINGS  AMD  FLOW  CHART 

The  listings  and  flow  chart  for  program  EC330  are  given  in  appendix  A, 
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L.  EG310,  BROWN'S  CONVERGENCE  AMD  COMPARATIVE  PLOT  PROGRAM 

1.  DESCRIPTION 

This  program  has  the  option  of  calculating  and  plotting  the  curve  of 
impulse  response  in  accordance  with  equation  (2U)  or  (33).  It  can,  in 
addition,  calculate  the  difference  at  each  time,  t^,  between  a  tabulated 
EB920  run  and  the  calculated  values  of  an  EC310  program  run}  set  up  a 
series  of  non-linear  equations  that  are  the  summations  of  partial  deriv¬ 
atives  of  either  equation  (2U)  and  (33)  times  the  difference  between  the 
two  ordinate  values  at  and  finally  solve  these  non-linear  equations 
by  Brown's  ‘  routine.  Tne  values  of»<,  J?,  ^3  are 

optimized  or  converged  by  repeating  the  above  solutions  to  limits  within 
desired  difference  values  (usually  .0001)  of  successive  estimates  within 
the  program.  These  converged  values  are  then  printed  out  along  with 
graphs  of  the  final  solution  of  equation  (2ii)  or  equation  (33)  and  the 
original  EB92C  plot  as  in  figure  21. 

This  program  may  have  difficulties  in  convergence  if  eight  variables 
are  used.  In  this  case  the  values  of  &  and  a^  are  held  fixed  at  initial 
input  values . 

The  equations  utilized  in  Brown's  routine  are  the  summations  of  the 
partial  derivatives  times  the  difference  in  Y  (ordinate)  values  between 
the  calculated  and  tabulated  conditions.  These  are  included  below  for 
clarity. 

Let  be  the  value  of  the  tabulated  points  (E992  0  values  on  the 

punched  data  cards). 


Assume  the  following  function  is  to  be  fitted  to  the  lata  points: 


rt 


-  * «' 


1; 


rQ.e”  *V  ■  ■(?*■•  '  ■) 


(3k) 


where  r  ;  ^  are  to  be  determined  by  thf;  method  of  least 

squares.  The  moan  square  error  becomes 

t  -  aIt  Jl  ht  ~  1r,' ) 

i  -i 

Taking  partial  derivatives  with  respect  to  each  parameter  and  equat¬ 
ing  to  aero  gives  the  following  eight  equations  to  be  solved  by  Brown's 
routine.  The  routine  will  recalculate  this  till  the  n™  and  (n-l)th  term 
agree  to  a  preset  number  of  significant  digits  (called  NUKSIG  in  this 
program). 
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Figure  ?1.  Typical  Converged  Response  Plot 
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o*.'-  2  he  ■Lln.)(~t'  aJe  *  '  ) 

p;  2  hi-lTi)(-^  °1  £,Tlsin(  (S r,  M)) 

?!  2  ( 1i  -^r.)  (-  t;  Cl,  e',r‘  ) 

f:  2  ( 1.  -  It.)  (  C>1  sin  ( jSTi  *  +)) 

a':  2(l— Jn)(  e~Vrn) 

a,/.  2  ( %  -  ^ )  (  e~*  ‘^s(pr,'  *^)j 

The  following  two  values  can  be  added  to  those  for  requested  opti¬ 
mizing,  but  usually  will  cause  divergence  rather  than  convergences 

flj  2  e'f") 


Brown's  routine  then  solves  the  above  system  of  simultaneous,  non¬ 
linear  equations.  The  algorithm  used  is  quadratically  convergent  and 
requires  only  (hx/i  function  evaluations  per  iterative  step  as 

compared  with  (n?  +  n)  evaluations  for  Newton's  Method.  This  results  in 
a  savings  of  computational  effort  for  sufficiently  complicated  functions. 

A  detailed  description  of  the  general  method  ahd  proof  of  convergence  are 
included  in  reference  2.  Basically  the  technique  consists  in  expanding 
the  first  equation  in  a  Taylor  series  about  the  starting  guess,  retaining 
only  linear  terms,  equating  to  zero  arid  solving  for  one  variable,  say  xk, 
as  a  linear  combination  of  the  remaining  n-1  variables.  In  the  second 
equation,  xk  is  eliminated  by  replacing  it  with  its  linear  representation 
found  above,  and  again  the  process  of  expanding  through  linear  terms, 
equating  to  zero  and  solving  for  one  variable  in  terms  of  the  now  remaining 
n-2  variables  is  performed.  One  continues  in  this  fashion,  eliminating 
one  variable  per  equation,  until  for  the  nth  equation,  we  are  left  with  one 
equation  in  one  unknown,  A  single  Newton  step  is  now  performed,  followed 
by  back-substitution  in  the  triangularized  linear  system  generated  for  the 
Xj 's.  A  pivoting  effect  is  achieved  by  choosing  for  elimination  at  any 
step  that  variable  having  a  partial  derivative  of  largest  absolute  value. 
The  pivoting  is  done  without  physical  interchange  of  rows  or  columns. 
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The  rector  of  initial  guesses,  X,  the  number  of  significant  digits 
desired,  the  maximum  number  of  iterations  to  be  used,  and  the  number  of 
equations  to  be  solved  are  input  data.  After  execution  of  the  procedure, 
the  vector  x  is  the  solution  of  the  system  (or  best  approximation  thereto). 

A  printout  that  a  Jacobian- related  matrix  was  singular  is  indicative  of  the 
process  "blowing-up".  If  this  occurs,  try  another  initial  estimate  of 
values: 

This  program  can  be  used  with  either  a  rudder  or  elevator  impulse. 

To  find  frequencies  of  oscillation  in  response  to  a  rudder  (lateral) 
impulse: 

a.  Run  EB920  for  the  DR(lateral  or  rudder)  impulse  of  desired  mag¬ 
nitude,  producing  punched  cards  of  output  phi  (0)  and  time  (t)  as  well  as 
printout  data  of  dynamic  response. 

b.  Exercise  EC320,  Root  Cracker  Program,  3D,  Lateral  to  determine 
the  roots  of  Equation  (35),  namely: 

[2  ,  f  S 

c.  Using  the  cards  from  EB?20  and  ^  ,  p  ,  ,  and  &  from 

EC320  as  inputs,  exercise  program  EC150,  Time  Response  Coefficient  Estimator, 
Lateral.  This  program  provides  estimated  values  of  several  terms  of  the 
lateral  impulse  equation: 

.  t  -0,  t 

=  a,  €  co%(jit+  s!)  +^3*-  ^ 


where  y  represents  bank  angle,  phi  (0) 

The  values  solved  are: 

®1»  *2*  a3»  ^ 

d.  Using  the  coefficients  and  roots  of  b.  and  c,  above,  and  the 
punch  cards  of  EB920  of  a.  above,  exercise  program  EC310.  This  program 
plots  the  tabulated  data  of  the  punch  cards  (dotted  curve  similar  to 
figure  21)  and  the  calculated  response  curve  per  equation  35  (solid  curve 
of  figure  21).  A  printout  of  the  calculated  and  tabulated  data  is  pro¬ 
vided. 


To  find  frequencies  of  oscillation  in  response  to  an  elevator  (longi¬ 
tudinal)  impulse: 

a.  Run  EB920,  Submarine  Simulation  Program  for  the  DS  (longitudinal 
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or  elevator)  impulse  of  desired  magnitude.  The  program  output  will 
supply  a  set  of  punched  cards  each  carrying  a  value  of  theta  (0)  and 
time  (t)  as  well  as  the  printout  data  of  these  same  values.  This  data 
is  the  true  response  of  the  submarine  to  an  elevator  impulse, 

b.  Using  these  cards  as  input  data,  exercise  program  EC330,  Time 
Response  Coefficient  Estimator,  Longitudinal.  This  program  provides 
estimated  values  for  the  constants  of  the  longitudinal  impulse  equation* 

'S'f  •  V 

u  =  u,  £  +  'i,  £  c 0i(p  r "t) 


where  y  represents  pitch  angle,  theta  (Q) 

The  values  solved  are: 

K  ;  /?  ,  ^  ,  n,  **  rA\. 

You  may  use  the  values  C*  ,  ,  and  provided  through  program 

EClliO,  Root  Cracker  Program,  3E,  Longitudinal. 

c.  Using  these  estimated  roots  and  coefficients  along  with  the 
punch  card  data  from  EB?20  noted  in  a.  above  as  inputs,  exercise  program 
EC310,  This  program  provides  a  computer  plot  of  the  actual  response 
f*urve  orovided  through  the  punch  cards  of  EB920  Hotted  curve  of  figure 
21),  calculated  response  curve  per  equation  (33)(solid  curve  of 
figure  21).  A  printout  of  the  calculated  and  tabulated  data  is  also 
provided. 


2.  SUBROUTINE  DESCRIPTIONS 
PLOTS 


PLOT 

FCNPLT 


-  plotting  routine  purchased  from  California  Computer 
for  use  with  their  plotter.  They  must  be  secured 
from  this  company, 

-  plotting  routine  from  Cal  Comp,  to  start  pen 

-  plot  routine  which  labels  axes,  draws  lines  and  symbols 
and  calls  for  other  subroutines 


SCALE  -  plot  routine  from  Cal  Comp  for  automatic  scaling  of 

axes . 

AXIS  -  olot  routine  from  Cal  Comp  to  produce  axis 

SYMBOL  -  plot  routine  from  Cal  Comp  to  produce  letters  and 
numbers  on  graph 

NUMBER  -  plot  routine  from  Cal  Comp  to  write  a  floating  point 
number  from  the  program 
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LINE  -  plot  routine  from  Cal  Comp  that  connects  a  series 
of  points 

AUXFCN  -  this  routine  calculates  the  function  of  equations  1 
or  2  and  prepares  the  matrix  of  equations  (Eq»s  5 
through  12)  for  Brown's  routine  (also  known  as  sub¬ 
routine  SYSTEM  in  this  program).  This  subroutine 
also  calculates  the  magnitude  of  each  of  the  equations 
5  through  12. 

SYSTEM  -  Brown's  routine  which  solves  six  or  eight  (usually 

restrict  the  value  to  six  in  order  to  secure  convergence) 
simultaneous,  non-linear  equations. 

3.  INPUT  DATA  DECK 

The  input  data  to  this  program  include  the  punch  card  data  from  the 
particular  impulse  run  on  program  EB920,  control  data  for  Brown's  routine, 
plot  control,  and  initial  guesses  or  starting  values  of 

w/  ?'  ^ Ci> )  -  longitudinal 

v/  ft  t  -  lateral 

These  are  identified  in  detail  with  their  locations  in  table  20. 


TABLE  20.  INPUT  DATA  DECK,  PROGRAM  EC310 


Card 

Column(s) 

Format  |  Description  | 

1 

1-5 

15 

N,  number  of  equations  to  be 
used 

N  ■  6  for  longitudinal 

N  ~  6  or  8  for  lateral  (8  will 
seldom  converge,  so  6  is 
recommended) 

1 

6-10 

15 

NUMSIG,  number  of  significant 
digits  of  agreement  between 
successive  iterates  which  will 
cause  convergence  ey  the  program. 
This  value  has  been  set  at  h 
for  work  on  this  program. 

1 

11-15 

15 

MAXIT,  maximum  number  of 
iterations  to  be  performed  by 
Brown's  routine. 

1 

16-20 

15 

IPRINT,  will  print  out  all 
iterations  of  values,  up  to 

MAXIT  above  if  set  to  1.  IPRINT 
•  0  will  print  only  first  and 
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TABLE  20.  INPUT  DATA  DECK,  ffiOGHAM  EC 310  (cont.) 


Column(s) 


21-25 


Format 


26-30 


1 

I 

31-35 

15 

2 

1-10 

F10.5 

2 

11-18 

2  Ali 

3-n 

1-15 

E15.7 

3-n 

16-30 

S15.7 

U*1 

1-80 

8F10.5 

m2 

- 

m 

Description 


i 

last  values  of  values  calculated 

l  A  ^2  > 

NETS,  number  of  data  prints. 

This  is  the  number  of  data 
cards  from  EB920. 

ISVil  *  1  -  will  calculate 
and  print  the  equations  (1  or 
2}  at  the  initial  guess. 

ISWI  =  0  -  will  attempt  to 
converge  for  better  values  of 
v,  with  Brown's 

routine  ancl  calculate  equations 
1  or  2  for  the  converged  values. 

I PLOT  =  1  -  will  plot  the  tabu¬ 
lated  and  calculated  data 
IFLOT  *  0  -  no  plot 

U,  forward  speed,  knots 

If,  word  "PHI"  for  lateral 
case  word  "THETA"  for  longi¬ 
tudinal  case 

Y(I),  values  of  dependent 
variable  (phi  or  theta)  from 
cards  of  EB920  run,  I  *  NPTS 

T(I),  values  of  independent 
variable  ( t)  from  cards  of 
EBP20. 

A,  B,  G,  P,  Al,  A2,  D,  M 

(*,  f  i  ^  ), 

initial  estimates  of  unknowns 
of  equations  1  or  ?, 

Blank  card  for  normal  end  of 

job. 


1.  OUTPUT  DATA 
Printout  Data i 


a,  cutout  values  -  The  printout  across  the  page  will  Include 
columns  ofi 
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A /  ^  time  through  Brown's  routine  -  0  =  initial  estimate 

'+ ,  «x. 

b,  Value  of  partial  derivatives  of  equation  1  at  convergence  in  a 
row  of  the  following  orderj 


c.  Converged,  or  final  values  of  calculated  terms  in  a  row  in 
following  orders 

i7,  r,  A  i  .  ^  ■  '-’i 

d,  Columns  of  time  (T ) ,  and  the  calculated  and  tabulated  values  of 
Y(I)  in  the  following  orders 

T  YE  YT 

Graphical  Datas 

If  the  CAL  COMP  subroutines  are  available  a  plot  as  shown  in  figure  21 
can  be  produced, 

5.  LISTINGS  AND  FLOW  CHART 

The  listings  and  flow  chart  for  program  EC310  are  given  in  appendix  A. 
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M.  EC790.  CALCULATION  OF  COMPACT  COEFFICIENTS 

1.  DESCRIPTION 

Program  EBp20,  Submarine  Simulation  Program,  was  written  to  provide 
a  flexible,  analytical  tool  for  examining  submarine  performance  with  a 
number  of  optional  devices  of  submarine  control,  program  control  and 
graphical  as  well  as  printed  output.  To  provide  the  computer  control 
necessary  for  a  submarine  training  device,  the  many  optional  controls  and 
outputs  of  EB92O  are  not  required;  a  number  of  the  coefficients  and  constants 
can  be  combined  to  require  fewer  multiplications  and  other  operations;  and 
a  much  smaller  computer  can  be  used.  This  program  uses  the  normal  input 
coefficients,  submarine  physical  constants,  and  control  values  of  program 
EB920  and  the  exact  input  data  deck  from  an  EB920  run  may  be  used.  The 
program  then  combines  a  number  of  coefficients,  multiplies  and  divides 
them  by  the  appropriate  constants.  This  program  thus,  takes  data  identical 
to  that  for  a  scientific  run  with  program  EB920;  combines  coefficients  and 
multiplies  by  constants,  prints  the  original  and  combined  coefficients 
separately;  and  finally  punches  data  cards  for  input  to  progrcm  EC 780 
compact  submarine  simulation  program  when  it  has  been  compiled  on  a  small 
computer.  Use  of  this  smaller  computer  demonstrates  that  a  much  smaller 
machine  (8K  core)  can  provide  adequate  storage  for  real  time  control  of  an 
actual  training  device. 

Equation  group  number  (36)  showfthe  mathematical  operations  performed 
on  the  original  coefficients  and  constants  used  for  the  inputs  to  program 
EB920.  The  primed  values  on  the  right  side  of  the  equation  are  identical  to 
those  used  in  EB920  and  are  defined  in  the  glossary.  The  unprimed  values 
on  the  left  side  of  the  equation  are  repeated  as  FORTRAN  variables  used 
by  program  EC790  and  EC70O. 

2.  INPUT  DATA  DECK 

The  program  requires  data  inrut  exactly  as  required  by  program  EB920. 

All  units  coefficients,  and  constants,  etc.,  as  used  in  an  EB920  run  are 
identical.  This  innut  data  deck  assembly  and  use  has  been  described  in 
that  Drogram. 

Since  EC780,  which  will  use  the  output  deck  from  this  propram,  cannot 
perform  many  of  the  operation  of  EB920,  some  of  the  data  normally  required 
in  EB920  runs  can  be  left  blank  in  the  proper  punch  locations  on  the  data 
deck  if  desired.  However,  all  cards  required  by  EB920,  even  if  completely 
blank,  must  be  present  as  inout  tc  this  program. 

3.  OUTPUT  DATA 

Two  data  sheets  sre  printed  by  this  program.  The  first  one  is 
identical  to  figure  of  program  E092O  end  shows  the  original  coefficients 
pressnt  on  ths  input  data  deck.  The  seeond  one  is  orinted  out  in  the  same 
format  but  the  values  of  those  coefficients  to  be  used  by  program  EC? 60 
are  printed  instead.  The  other  coefficients  thst  were  not  modified  in 
tnie  program  ere  printed  on  this  same  page,  but  are  not  used  further. 
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Coefficient  Description  (EC780) 
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NAVTRADEVCEN  68-0005 0-2 
N.  EG780,  COMPACT  SUBMARINE  SIMULATION  PROGRAM 


1.  DESCRIPTION 

This  program  is  a  limited,  modified  version  of  EB920,  Submarine 
Simulation  Program.  It  will  provide  all  output  data  in  accordance 
with  the  equations  of  motion.  A  number  of  types  of  preplanned  submarine 
maneuvers  have  been  included  for  testing  the  program.  This  program  has 
been  modified  from  EB920  by  utilizing  a  number  "synthetic  coefficients" 
which  were  calculated  in  program  EC790,  Calculation  of  Compact  Coefficients. 
These  synthetic  coefficients  are  the  normal  coefficients  from  the  equations 
of  motion  (as  used  directly  in  program  EB920)  that  have  been  combined  and 
multiplied  by  appropriate  constants  in  this  separate  program  rather  than 
the  simulation  program.  These  new  coefficients,  along  with  the  removal  of 
a  number  of  options  from  the  scientific  research  program,  EB920,  allow  this 
program,  EC780,  to  solve  the  equations  of  motion  with  fewer  operations  and 
much  less  core. 

This  program  operates  with  the  modified  coefficients  from  program 
EC790.  The  specific  mathematical  model  is  therefore  somewhat  different 
from  that  described  in  Reference  1  and  usea  in  program  EB920,  and  are 
given  in  equations  (37)  through  (ii2). 

Coefficient  terms  used  above  are  defined  in  the  associated  input  data 
program,  EC790. 

2.  SUBROUTINE  DESCRIPTIONS 

CONTR  -  This  subroutine  allows  control  of  submarine  motion  by 
programed  movement  of  elevators  and/or  rudder.  This 
allows  selection  of  the  various  maneuvers: 

a.  Steady  dive,  turn,  or  combination 

b.  Meander  or  overshoot 

c.  flat  turn  with  autopilot 

d.  Climbing  turn,  combination  of  a  programed  turn 
and  meander  or  overshoot 

e.  OS  or  elevator  impulse  (no  punched  cards  are  pre¬ 
pared  by  the  comouter  as  in  this  maneuver  with 
program  EB920)  with  autopilot 

f.  DR  or  rudder  impulse  (no  punched  cards) 

g.  Acceloration/deceleration 

h.  Maximum  acceleration/deceleration 

These  controls  function  and  are  input  exactly  as  in 
program  EB920,  30  reference  is  made  to  this  program 
for  detailed  information, 

UPDATE  -  This  subroutine  sets  the  propeller  thrust  constants, 
ai,  bi,  ci  in  accordance  with  the  current  value  of 
/7>  ;  (  Vjl,-  /  U»  ).  It  solves  the  equations  of  motion 

at  each  updated  time  increment,  H,  These  values,  <»,  v, 
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Subwavt^e.  'c.CLua'Vicms  o4  Motion 
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41  ♦  (W-E^  cos©  sm  +I/M 


115 


NAVTRADEVCEN  68-C-00$0-2 


Normal 

0) 


Roll 

P  * 

Pitch 

%  '■ 


Yaw 

r 


p*  v  <£)  ~  trp  -  ^)  f^u.- Arp) 

+  ili  *  lrrr*  + 

+•  (/ir*  +  »')* 


+  U*Uu*.  -  £&wSto  * 

-+-  cos  0  cos  <^j |m-2£ | 


(***) 


m  2.6<(w’  -  ujp  +  ur  )K£+kf  r  v  K^or 

♦  uCk^p  *  *  kwimI  Ar(ftfl  +  vo*)* 

-  K*(£ftW  -  £#B)  cos0  cos4> 

(Hi) 

Mr(,rp  +•  +•  *  Hwu*) 

-  vy\  (£^(u -tvrr  *u>$)  -  Xft(vb  -  u<£  *  <\rp^)M^ 

+  Mr/1  *  ^vr**r  +  P»w* 

♦  MIW|%t  Cw%  *w')V  +  Mwiuj,ujCaj1 +031) 

+  Ul(M*  -  f\wl*  +  N*tO 

-  Mi  (.  X^  W  cos©  cos  $  +  (i.^W  -  1l%B)  sin©) 

(n) 

K\?%  +Nff  +  N**  +  U'  N**r 
~  wi.  (X^(ru*  -wp  ♦  ur))N^  N^^nKA)1  ♦  u»M^ 
a(Nfp  v  N rr  ♦  Nw(tf}  ♦  Mf  (X^W)  cos©  sm  4 


•v 


NAVTRADEVCEN  68-C-0050-2 


•  * 

w,  p,  q,  r,  with  kinematics,  0  ,  y  ,  <p  ,  and 

x,  y,  and  i  are  then  integrated  over  the  time  interval, 

H.  These  new  values  returned  to  the  main  program  for 
possible  printout,  and  the  old  derivative  values  re¬ 
placed  by  the  new  values  each  pass  through  the  subroutine. 

3.  INPUT  DATA  DECK 

The  input  data  consists  of  two  special  control  cards  plus  the  punch 
card  output  data  deck  from  EC790,  Calculation  of  Compact  Coefficients. 

The  inputs  to  that  program  are  exactly  as  for  inputs  to  EB920  with  the 
exception  that  values  for  terms  not  used  may  be  left  blank.  The  subject 
program  is  set  up  so  that  an  input  data  deck  that  had  been  used  for  a 
particular  run  on  EB920  can  be  used  for  input  to  EC790  and  the  output 
cards  of  EC790  used  with  the  two  special  control  cards  as  the  input  data 
deck  for  the  subject  program,  EC780.  The  data  deck  format  for  this 
program  is  given  in  table  22. 


TABLE  22.  INPUT  DATA  DECK,  PROGRAM  EC780 


Card 

Column ( s ) 

Format 

•  Description 

1 

1-5 

IS 

.  1 

IRUN,  run  number 

1 

1 

6-10 

IS 

NPNT,  calculated  values  will 
printout  each  NPNT  integration 
cycle  (If  H  s  .25  seconds,  and 
NPNT  *  8,  printout  interval  is 
NPNT  x  H  s  2  seconds) 

1 

j 

i 

11-15 

IS 

NS.  This  variable  selects  the 
type  of  submarine  control  in 
CONTR  subroutine! 

NS  -  0,  Fixed  controls  per 
initial  conditions 

NS  *  1,  Overshoot,  meander,  etc, 
NS  s  2,  Special  climbing  term 

NS  *  3,  Flat  turn  (with  auto¬ 
pilot) 

NS  *  h,  Elevator  impulse 

N3  ■  5,  Rudder  impulse  (with 
autopilot) 

NS  -  6,  Acceleration/ decelera¬ 
tion  (with  autopilot) 

NS  s  7,  Maximum  acceleration/ 
deceleration  (with  autopilot) 
(lutails  of  these  controls  are 
in  EB920  write  up) 

2 

11-20 

F10.5 

H,  integration  time  increment, 
seconds.  This  step  sise  is 
used  throughout  the  entire  run. 
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INPUT  DATA  DECK,  PROGRAM  EC780  (cont.) 


Card 

Column( s ) 

Format 

2 

21-30 

F10. 5 

3-18 

1-78 

6EL3.6 

19 

. . .  . 

Description 


TLIM,  time  at  the  end  of  the 
run,  seconds. 

Punch  card  data  from  EC790, 
Calculation  of  compact  coef¬ 
ficients.  Table  defines  the 
variables  punched  on  these 
cards. 

Blank  card  for  normal  end  of 
job. 


li.  OUTPUT  DATA 


r 


f 


A  sample  output  data  sheet  from  this  program  (using  trial  or  syn¬ 
thetic  input  coefficients  from  EC790)  is  shown  in  figure  23.  The  run 

number  and  control  routine  value  NS  are  provided  in  the  first  line  of 
data.  Then,  at  the  desired  intervals  of  time,  the  calculated  values 
(and  time)  from  the  solutions  to  the  equations  of  motion  are  printed 

(u,  v,  w,  p,  q,  r,  9,  y  ,  0,  x,  y,  z,  and  t). 

5.  COMPUTER  RUN  TIME 

For  the  SDS  Sigma  2  conputer,  cycle  and  add  time  is  2.25  microseconds. 
The  subject  programs  required  0,2  seconds  for  complete  integration  period 
with  no  I/O. 

6.  LISTINGS  AND  FLOW  CHART 

The  program  is  written  in  basic  FORTRAN,  primarily  for  use  on  an  SDS, 
Sigma  2  or  other  small  computers.  It  is  a  streamlined  version  of  program 
2B920,  and  has  ooerated  on  the  IBM  360/i<0  computer.  It  is  not  intended 
for  normal  use  on  this  larger  computer  as  the  input  has  been  tailored 
for  card-reader  input  ana  eighty-column  typewriter  output  available  on 
the  Sigma  2.  The  listings  and  flow  chart  are  given  in  appendix  A, 
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0.  ECS72  -  WAVE  GENERATOR 
1.  DESCRIPTION 


Program  EC572,  Wage  Generator  Program,  was  written  to  provide  a 
means  of  generating  a  random  oceai.  wave  surface  at  one  point  in  time. 

It  can  be  used  with  the  Submarine  Simulation  Program  to  affect  submarine 
motion  close  to  the  surface}  but  at  present  the  outputs  are  only  a 
choice  of  printed  points,  a  graph  plotted  against  time,  or  points  and 
time  punched  on  cards  for  PSD  analysis.  The  program  uses  a  mathematical 
model  developed  in  "Mathematical  Generation  of  a  Realistic  Sea",  Hydro- 
autics,  Inc,  Technical  Report  001-13  (DDC  #  AD  609906)3  prepared  for  the 
Bureau  of  Ships  in  October  1963.  However,  the  wave  spectra  used  is  not 
the  standard  Neumann  used  in  the  report,  but  the  more  up-tc-aate  Pierson- 
Moskowit*  spectra.  This  spectra  has  the  equations 


A 


2 


8  Ire  I  Q'3  r* 


i 


AXM= 

wave  spectra 

Uu  * 

frequency 

'J  « 

gravity 

U  • 

wind  speed 

The  program  first  determines  the  frequency  points  at  which  the 
area  under  A‘(^)  can  be  divided  into  equal  sections.  This  is  done  in 
closed  form  by  integrating  ^ and  finding  the  area  between  two 
limits. 


r  t'X 


$  I  *  10  ’  \J*  '  \ 


1  i(s  y 


The  total  area  is  divided  into  the  number  of  specified  bands  and 
the  program  solves  for  the  upper  limit  of  the  expression  to  give  this 
value.  This  value  is  then  used  as  a  lower  limit  for  the  next  value  until 
B  is  reached.  The  series  of  frequencies  are  stored.  The  orogram 

then  calls  a  random  number  generator  in  the  system  library  to  generate 
enough  random  numbers  between  sero  and  2 IT"  for  use  in  the  expression 

below. 

The  surface  amplitude  is  then  calculated  by  means  of  the  expression 


120 


NAVTRADEVCEN  6 8- 0-00$ 0-2 


*«)  ■  b± £ 

Cl  J'-f 

•vhen  *  C*<r 

C*t  ■ 


-7 

e 


=  0.9058 

-  0.U3305 

-  0.5325U 


> 


L 


U  is  the  snaed  in  knots 

Development  of  this  equation  is  covered  in  the  reference  The 
rest  of  the  program  consists  of  control  for  inputs,  outputs,  error 
messages,  and  times  the  program  is  to  be  run. 

2.  SUBROUTINE  DESCRIPTIONS 

Hie  CAL  CON  subroutines  must  be  supplied  by  the  operating  system  if 
plots  are  desired.  They  are 

PLOTS  LINE  JCALE  IHEX 

INIT  PLOT  AXIS 

Their  function  is  described  in  program  SC310.  Other  subroutines 
needed  are 

RANDM  Random  number  generator.  Returns  a  floating 

point  fraction  between  0  and  1. 

EXP 

ALOG 

SQRT  Standard  FORTRAN  calls 

COS 

EXIT 

3.  INPUT  DATA  DECK 

The  inout  data  deck  format  is  given  in  table  ?3. 


121 


NAVTRADEVCEN  68-C-0050-2 


TABLE  23.  INPUT  DATA  DECK,  PROGRAM  EC572 


Card 

Column( s ) 

- 1 

Format 

Description 

1 

i-5 

15  i 

•  i 

r 

i 

NBAND  -  Number  of  energy  bands 
in  spectrum 

6-10 

15 

NT  -  Number  of  times  points 
are  to  be  calculated  (time) 

11-15 

15 

NPLT  -  0  *  No  Plot,  1  *  Plot 

16-20 

15 

NPCH  -  0  =  No  Card  Output, 

1  =  Card  Output 

21-30 

F10.5 

A  -  Lower  frequency  limit 
(radians) 

31-10 

F10. 5 

B  -  Upper  frequency  limit 
( radians ) 

ia-5o 

Flo. 5 

ET  -  Seconds  between  each 
time  of  calculation 

2 

1-30 

8F10.8 

! 

VI  -  The  speed  (U)  at  which 
the  program  is  to  be  run.  Any 
number  of  speeds  up  to  eight 
can  be  used.  Program  will  cal 
culate  only  the  number  on  this 
card. 

OUTPUT  DATA 

Printed  NBAND 

number  of  energy  bands  in  spectrum 

NT 

number  of  points 

NFLT 

plot  control 

NPCH 

punch  control 

A 

lower  frequency  limit 

B 

upper  frequency  limit 

DT 

time  interval 

v 

wind  velocity,  knots 

u 

wind  velocity,  ft/sec. 

GOU 

g/u  ,  , 

8.1  x  10"3U^ 

FACT! 

FACT2 

w — r 

-0.7U(g/UP 

YO 

area  below  lower  limit 

AY 

area  below  uoper  limit 

AREA 

area  between  limits 

AR 

area  in  energy  band 
g/U(-0,7it/ln(Y0)  )< 

XI 

Y1 

frequency  limit  of  each  band  (XI •FACT!) 
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YO  area  below  each  frequency  band  limit 

TT  time 

TSUM 


b.  Plotted, 
output  with 


The  graph  given  in  figure  2li  is  an  example  of  the  plotted 


WBANB 

10 

NT 

z 

Uoo 

NPLT 

s 

1 

NPCH 

s 

0 

A 

S 

0.2 

B 

s 

1.8 

DT 

s 

1.0 

U 

s 

23.7  kts.  CI4.O  ft/sec.) 

If  CALCOMP  plotter  software  is  not  available,  the  plotting  calls 
must  either  be  removed  from  the  source  deck  or  A  dummy  subroutine  deck 
must  be  used. 


Figure  23,  Typical  Wave  Generator  Output 
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c.  Cards.  If  NPCH  is  set  equal  to  1,  a  card  deck  is  punched  with 
identifying  data  on  the  first  card  followed  by  cards  with  the  card  number 
and  value  of  $Yt)  in  a  15,  5x>.  F10.1*  format.  This  output  is  for  use  in 
a  PSD  program, 

d.  A  number  of  error  messages  and  plot  instructions  are  printed  out 
on  the  coirputer  operator's  console  to  assist  in  running  the  program.  If 
some  other  device  number  is  used  at  another  installation,  the  correct  one 

will  have  to  be  used. 

Device  Number  Device 

1  Card  Reader 

3  Line  Printer 

2  Card  Punch 

15  Operator's  Typewriter 

5.  LISTINGS  AND  FLOW  CHART 

The  listings  and  flow  chart  for  program  EC572  are  given  in  appendix  A. 
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APPENDIX  A 

PROGRAMING  LISTINGS  AND  FLOW  CHARTS 

This  appendix  contains  the  listings  and  flow  charts  for  each  of 
the  computer  programs  described  in  this  report.  The  page  number  for 
the  start  of  each  program  is  given  in  table  2i*. 


TABLE  2l*.  PROGRAM  LISTINGS  PAGE  N 

UMBER 

Program 

Page 

Program 

Page 

EB920 

127 

ZC300 

235 

EC320 

277 

EC790 

315 

ZC790 

193 

ZC690 

21*0 

EClSO 

283 

EC  7  80 

328 

ECL70 

226 

ZC691 

2l*l* 

EC330 

287 

EC572 

353 

EC  1*30 

231 

EClUO 

21*8 

EC  310 

29k 

The  programs  are  written  in  FORTRAN  IV  and  should  run  on  any 
computer  equiped  with  this  compiler.  The  higher  level  features  of 
this  language  are  not  used  and  its  programs  are  written  to  be  as 
machine  independent  as  possible.  Each  subroutine  starts  on  a  new 
page  and  the  total  program  listing  is  followed  by  flow  charts  for 
that  program. 

The  flow  charts  were  generated  from  the  FORTRAN  listings.  The 
program  number,  subroutine  name,  and  page  number  of  the  flow  chart 
are  listed  at  the  top  of  each  page.  The  page  number  is  used  to 
connect  the  various  charts  together.  Each  input  and  output  is  labled 
with  a  decimal  number.  The  number  to  the  left  of  the  decimal  point 
is  the  page  number  (upper  right-hand  corner)  of  the  connection  and 
the  right-hand  part  gives  the  box  number  on  that  page.  Subroutine 
calls  are  given  in  the  subroutine  box  in  the  same  manner.  All  flow 
chart  symbols  are  convential. 
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// 

ft 


C 

c 

r 


r 


c 


c 


c 


c 


r. 

c 

r 

r. 

r 

c 

r. 

r 

c 


r 


JOB  EB920 
EXEC  FFOPTRAN 
OIMENS ION  Y< 13)  .  TL  I 12) 

DIMENSION  SAVEI300, 16),  IL0CI16),  BUFFI3000) 

REAL  IX,IY,I7,IXY,IXZ,IYZ 

COMMON  H,  HM AX  ,  HMIN,  OH,  FCT  *  TL,  NGS,  N,  TS1,  NPNT 

COMMON  TLIM,  RHOL2,  RH0L3,  RH0L4,  RHQL5 ,  WMR,  ETA,  ETAM1 ,  ISW2 

COMMON  XQQ,  XRR,  XRP,  XUD,  XVR  ,XWO,  XUU,  XVV, 


1 

XWW,  XDROR,  XDSDS,  XDBDB,  XVVE ♦  XWWF ,  XORORE,  XDSDSE 

COMMON 

1 

2 

YRO »  YPD,  YPAP,  YPQ,  YQR ,  YVO,  YVQ,  YWP, 

YWR ,  YR,  YP,  YAPDR ,  YVAR ,  YSTR ,  YV,  YVAV, 
YVW,  YDR,  YRF ,  YVF ,  YVAVE,  YORE 

COMMON 

1 

? 

ZOO,  ZPP,  7RR,  ZRP ,  ZWO,  ZVR,  ZVP,  ZO, 

1 AQOS ,  ZHAO,  ZSTR ,  ZW,  ZWAW,  ZAW,  ZWW,  ZVV, 
ZDS,  ZOB,  ZQE  ,  ZWE ,  ZWAWF,  7DSE 

COMMON 

1 

-> 

AKPD,  AKRO,  AKOR,  AKPO,  AKPAP,  AKP,  AKR,  AKVD, 

AK VO ,  AKHP,  AKWR ,  AKSTR ,  AKV,  AKVAV,  AKVW,  AKOR, 
AKSTRF 

COMMON 

1 

2 

AMQO,  AMPP,  AMPR,  AMRP,  AMOAQ,  AMWO,  AMVR, 
AMQ,  AMAQDS,  AMAWO,  AMSTR,  AMW,  AMWAW,  AMAH 
AMVV,  AMOS,  AMOB,  AMQE,  AMW F,  AMW AWE,  AMOSE 

AMVP, 

,  AMWW, 

COMMON 

1 

? 

ANRD,  ANPO,  ANPQ,  ANQR ,  ANRAR,  ANVO,  ANWR, 
ANVQ,  ANP,  ANR,  ANAR OR ,  ANAV»,  ANSTR,  ANV, 
ANVW,  ANOR,  ANRE,  ANVE ,  ANVAVF,  ANORE 

ANWP  , 
ANVAV, 

COMMON 

IX,  IY,  IZ,  IXY,  IXZ,  IY7 

COMMON 

CW,  CR,  UC,  XR,  YB,  ZR 

COMMON 

OR,  OS,  OB ,  RHO,  AL,  AM 

COMMON 

ORMAX,  ETAHI,  FT  ALT,  Ml,  Al?,  AM 

COMMON 

A?  1 ,  A??,  A23,  A 3 1  ,  A 32 ,  AM 

COMMON  XG,  YG,  ZG 

COMMON  HOC,  I  PLOT  ,  I  RUN,  IOPFN,  NPLT ,  IOPT 


COMMON  Y 


COMMON  T IMF ,  Ml,  OFLTMA,  SWMAX,  R?,  OELTMJ,  OSF,  OOF,  ICYC,  NS, 
1  INTSW 

PI  «  3.1MSR3 
IOPT  -  0 
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I  OPEN  =  0 
N  =  1  2 
46  CONTINUE 
CALL  INPUT 
I F ( IPLOT )4R, 50,48 
40  IF ( I  OPEN)  50,44, 60 
49  CALL  PLOTSIBUFF,  12000,  7) 

I  OPEN  *  1 
60  CONTINUE 
NLOC=  16 
K  =  0 
I  OUT  =  0 
L  INSPP  =  50 
L INS=99 
I  PAGE  =  1 

WRITE! IOUT ,  24 ) IPAOF 
ICNT  =  NPNT 
ICNT?  =  NPLT 

C 

C  COMPUTE  r<H0  *  L  CONSTANTS 
f 

RHOH  =  RHO  *  .*5 
RH0L2  =  RHOH  *  AL  *  AL 
RH0L3  =  RHOl ?  *  AL 
PHOL*  =  RHOL  0  *  AL 
RH0L5  -  RH0L4  *  AL 

WRITF  OUT  HYOROOYNAMTC  COEFF I C I FN T S 

WRITFI IOUT, 1 »  XCQ,  YRO,  7Q0,  AKPO,  A  MQD,  ANRD,  XOR,  YPD,  7.PP, 
1  AKRD,  AMPP,  ANPO,  XRP,  YR  AP ,  7RR  ,  AKQR,  A MRR ,  ANPQ ,  XUO , 

•>  YPQ ,  ZRP,  AKPO,  AMRP,  ANQR ,  XVR,  YQR ,  7WH,  AK»AR,  A«OAO, 

0  ANRAR,  XWQ,  Y VO »  7  VP ,  AKR,  AMWQ,  A  NVD 
1  F0RMATI1H  , 'XQQ',4X, F12.5,  «  YPO  » ,  4X,  E  1  2. 5,  •  ZQn ' ,4X,E12.5, 
1*  KP  0 ’  ,4X , F 1 2  «  5 , •  MQO* ,4X ,F12.5t*  NR  O' , 4 X, F 1 ? . 5 / 1 H  , 

2 ' XRR  * , 4X , F 1 2 . 5 ,  '  YPO  * , 4X , F 1?,5, '  7 RP *  ,  4 X ,  FI 2  .  5  ,  '  KR0',4X, 

3F  l  2 • 5  »  •  MPP» ,4X,F1 ? .5, •  NPO» , 4X , E 1 ? .5/ 1H  f 

4»XRP',4X,F12.5,'  YPAP*  ,0X,F1?.6,«  ZRR  •  ,4X  ,D ?  .6  ,  •  mR',4X, 

6 F 1 2  .5  *  '  MRR»,4X,H2.5, «  NPQ * , 4X , F l 2 . 5/ 1H  , 

6'XU0',4X,F12.5,'  YPQ’ ,  4X.F12.5, *  ZRP • , 4 X , P 1 2  .  5 ,  •  KRQ*,4X, 
7F  I  2 ,5* '  MRP',4X,F1 2.5, *  NQR • , 4X , F 1 2 . 5 / 1 H  , 

0'XVR* ,4X,El?.5, '  YO a*«*XvF12.5,*  7W0* , 4X, F 1 2 . 6, •  KPAP»,0X, 

9F 1 2 • 5, •  MQAQ»  ,0X,F12.S,*  NRAP • , 0X ,F I  2. S/1 H  , 

A'XWQ*  ,4X,F12.5,  »  YV0',4X,F  12. %  *  7VR  * ,  4  X,  f  1  ?  .  6 , »  KP',5X, 

RF12.5,'  MWD' ,4  X,F I  2. 5 , •  N VO* ,4X , F 1 2 .5  ) 

WRITFI  IOUT ,11 }  XUU,  YVO,  7  VP ,  AKR, 

1  AMVR  ,  ANWR,  XVV,  VW<»,  ZO.  AKVO,  AMVP,  ANWP 
11  FORHATtlH  ,• XUU* ,4X,F12.6,»  VVQ* ,4X,F12.5, *  7VP» ,4X , FI  2 .5 , 

’•  KR  '  ,  5X , F 1 2  »6,  '  “VR*,4X, F12.5, •  MWR * , 4X,F1 2.5/ IM  , 

2  *  XVV*  »4X ,E 1 2. 5 » *  YWP*  ,4X,F!2.5t»  20*  »5X  ,E12  .5  , «  KVf>«,4X, 

0F 1 2 .5, *  5VP»,4X,E1 2.6,  •  NWP»,4X,F 12.5) 

WRITFI IOUT, 2)  XWW,  YWR,  7A00S,  AKVQ ,  AMQ,  ANVC,  XODOR,  YR , 
1ZWA0,  AKWP,  AMAQOS,  ANP,  XOSOS,  YP,  ZSTR,  A  K  WR ,  A«AWO,  AN® , 
7XO0CR,  YAROP,  Z W,  AKSTR,  AMSTR,  AN AR  OR . XVVE , yVAR ,  ZWAW,  AKV, 
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3AM W,  ANAVR.XWWE.YSTR  vZAW,AKVAV,AMWAW,AN$TR 

2  FORMAT ( 1 H  , • XWW * . 4X , £ 1 ? .8, *  YWR • , 4X, E 1 2. 5, *  Z AQO S • , ?X ,E 1 2. 5 , 

1*  KVQ'  ,4X»F12. 5  , '  MQ*  ,8X  ,  E12. 5  ,  •  NVQ* »4X, FI  2  .8/ 1H  , 

2*XOROR* ,2X,E12.8,«  YR  • ,  8X,  E  12.  5,  «  Z  WAG  •  1 3X ,  FI  2  .*5 ,  *  KWP*,4X, 

3E 12. 5 ,  '  MAODS»,2X,F12.5, *  NP«  ,8X,  E12.5/1H  , 

4*  XOSDS*  ,2X,E12.5.»  YP*  ,8X,E  12. 5  , «  ZSTR*  ,3X,E1  2.5  , »  KWR*,4X, 

5F1 2  «5 »  •  MAWOS  3X,  E12.5,  *  NR  * »  5X, E  12. 5/1H  , 

4' XDBOR '  ,2X»F12.5»'  YARDR * , 2X , El  2 . 8 , *  ZW* , 8X , E 1 2. 5,  •  K$TR*,3X, 

7E12.5,'  MSTR  *  ,  3X,F 1 2. 5,  *  NAPDR  •  ,  2X  ,E1  2.  *5/  1H  , 

8  *  XVVE ' , 3X, FI  2 .8  ,  •  YVAR • ,3X , El  2 .8 , •  ZWAW* , 3X, F 12. 5, •  KV*,5X, 

9F12.8,*  MM*  » 5X.E12. 8, *  NA  VR  *  , 3X.E12.5/1H  , 

A*XWWE', 3X,  E12.5, •  YSTR • ,  3X , E 1 2 . % •  ZAW • , 4X, E 1 2. 5 , •  KVAV*,3X, 

RE  1 2. 5 ,  *  MWAW* ,3X,E12.5,»  NSTP  •  , 3X , F12  .5  ) 

WR ITE( TOUT »  22!  XO RDRE ,  YV,  ZWW, 

lAKVWt  AM AW»  ANV,  XDSDSE,  YVAV,  ZVV,  AKDR,  AMWW,  ANVAV 
7  /  FORMAT!  1H  » •  XORDRE*  , 1  X,E1 2. 5 ♦  *  YV* ,8X, El  2 . 8 , •  ZWW*  , 4X  ♦  El  2. 8, 

1*  KVW 'f4X.F12.5t  *  MAVM.4XfF12.8t •  NV • , 5X . F 1 2. 8/ IN  , 
2'XDSDSF»,IX,E12.5,»  Y VAV» . 3X , F 12 . 5, •  ZVV* , 4X. El  2 . 8, •  K0R',4X, 

3F 12. 5. '  MWW* ,4X,F12.5,*  MVAV* ,3X,F1 2. 5) 

WRITEUnuT.3)  YVW .  ZOS,  AKSTRE,  AMVV.  ANVW.  YDR . 

1ZDB.  AMOS,  ANDR,  YRE.  ZQE .  AM OB.  ANRE,  YVE,  ZWE,  AMOE, 

2ANVE,  YVAVF ,  7WAWF,  AMWF .  ANVAVE,  YORE,  ZDSE,  AMWAWF ,  ANORE,  AMOSE 

3  FORMAT  (  1H  ,  19X,  •  YVW *  ,  4X  ,  E 1 2 . 8  , '  ZDS  *  ,  4X,  E  12. 8, 

1*  KSTR  E  *  ,2X,E12.5,*  MVV  ,4X ,F  12 .5  ,  *  NVW*  ,4X  ,  El  2  .  S/1H  , 

219X,  •  YOR *,4X,F12.8, «  ZDR » , 4X, F 1 2. 8 , 21 X , 

3*  MOS*  ,4X,E12.5,'  NOR • ,4X ,E1 2 . 5/ 1 H  , 

419X,  »  YRE '  ,4X,Fl?.5,*  ZQE 1 ,4X  ,F1 2 .5 ,2 1 X  , 

5*  MOB* ,4X,E12.8V •  NRF * ♦ 4X  »  E 1 2 .r/ 1H  , 

4  19X,*  YVE*  ,4X,F12.K,’  Z  WE  *  ,4 X ,F  1  2.  8 , 2 1  X ,  •  MQF • ,4X, El  2 .8 , 

Z*  NVFS4X.F12.5/1H  ,  1<>X,*  YVAVF  • ,  2X, F  1  2 . 8,  •  Z WAWF •  , 2X,E  1  2 . 8 , 

"  21X,»  MWF',4X,E12.8,*  NVAVE * , ?X , E 1 2 . 5/ 1 H  , IQ X, •  YORE*,3X, 

9  F  1 2  •  5 .  •  ZDSE',3X,E12.8,?l X,*  MWA WE • , 2X ,F 1 2 . 8  ,  *  NORE*,3X. 

A  F12.5./1H  ,R4X, *MOSE* ,3X ,F12.8// ) 

WRITE!  IOIJT, 41  IX,  IY,  I  ?. ,  IXY,  IXZ,  IYZ,  CW,  f.  B,  UC  ,  XR,  YR, 

1  ZB,  OR,  OS,  OB,  OHO,  At,  AM 

4  FORMA T ( IH  , • I X • ,8X,E12.8,*  I Y •  , 8X , El 2 . 5 ,  •  I Z * , 8X ,  F 1 2. 8, 

1*  IXY* , 4X, F 12. 8, *  IXZ',4X,F1?,8,*  I Y? • ,4X,F \ 2. 8/ 1M  , 

2'W*  ,6X,E12.5,  •  B*,6X,E12.8  ,*  IJC  ’  ,  8X.F12.8,*  XR* ,  8X,  F  l  2. 8, 

7*  YB*,8X,F1?«8,*  ZB* ,8X,F 12.8/1H  , 

4*OR* ,8X,F12 .8, *  DS ' , 5X, F 1 ?. 8, •  OB  * , SX , F 1 2 . 8 , •  RMO* ,4X,F 12.8, 

8*  L ' , 8X,F 1 ?, 8, •  M*ftX,F12. 5  1 

WRITE!  I  OUT, 41  All,  A21,  A71,  PPMAX,  ETAMI,  FTAIO,  A12,  A27,  A3?, 

1  XG,  YG ,  ?r, ,  AIR,  A23,  A«3 

2,  H.INTSW,  TIME,  PI,  OELTMA,  SW**A X,  R2,  OFITMI,  OSF,  ORF,  If.YC,  NS 
4  FORMATflH  ,  '  A 1 1  * ,  4X  ,  F  1  2. 8,  *  A  2  \  • ,  4X,  E  I  2 . 8,  '  AM  •  ,4X,F  12.  8, 
l*  ORMAX* , ?X,E 1 2. 8,  •  FTAHI • ,?X,F12.8,*  FT  At O* , 2X , F 1 ?. 8/ 

21M  , * Al 2 * , 4X, F 12 .8, '  A ’2 * , 4X,F 1 2. 8, •  A 3 » • , 4X, F l ? . 8 , 

3*  XG* ,8X,Fl2.8t •  YG* ,8X,FJ?.8,*  ZG* . 8X, FI  2 .8/ 

41H  ,  *  A  1  3*  ,  4X,  F  1  2. 8,  *  A?3*  ,4X,F  12.8,*  A33 ' ,4  ¥ , FI  2 . 8  , 

8  *  H* ,8X,E12 .5, *  INTSW*, 2X, 12/ 

41 M  ,*TIMF*3X,R1?.«,*  PI  « ,8X,ri2.8, *  OFl TM A • , \ X , r I  2 .8,  «  SWMAX*. 
72X , F 1 2 . 8, *  P?*,8X,F12.8, •  OF»  TMI » , 1 X,F 1 2. 8/ 

RIM  i *OXR* , 4  X , FI  2.8, •  0*F ♦  »4X»F1?.8»*  If YG » , M ,  1 2 , 1  OX, 

S*  NS*  »8X, 12/1 
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WRI TF  ( 1  OUT  ,?  )  I  RUN 
5  FORMAT (  IH  ,  'RUN  NO  •  ,  I  S/) 

C 

C  COMPUTE  W-B 

C 

WM8*CW-CB 
I  SI  =  0 
ISW?  =  0 

IF(INTSW)60,67,6? 

60  INTSW  =  1 

62  i  F I  INTSW- 3)66, 66, 64 
64  INTSW  =  1 

66  I NTGSW=I 
GO  TO  R 

67  I NTGS W=0 
H  CONTINUE 

I  F  <  INTGSW)69,6P,69 
64  CALL  KIJTT  A  ( Y ) 

GO  TO  7S 

69  CALL  INTFGIY, INTSW) 

74  CONTINUE 
C 

C  SAVF  VALUES  FOP  PLOTS  IF  IPLOT  =  1 
C 

I F ( IPLOT ) 9, 1 2, 9 
9  CONTINUE 

r 

c  IF  ARRAY  FULL  OCNT  PVFRUN 

C 

IFtK-300)  63,12,1? 

63  CONTINUE 

IF (NPLT-ICNT?)  4?, 57, SI 
S2  ICNT?  *  0 
K  =  K  *■  1 
C  SAVE  T IMF 

SAVF  (  K  ,  l  )  =  YU’) 
r  SAVF  u 

SAVE  I K  *  2 )  *  YU) 
r.  savf  v 

SAVE  I  K  ,  3 )  *  Yl?) 

C  SAVF  W 

SA  VF(  K  ,4)  *  vm 
C  SAVF  p 

SAVEtK.S)  *  Y(4) 
f  SAVF  Q 

SAVE(K»4)  *  YIS) 
r.  SAVF  » 

SAVEIKtT)  «  Ylf) 

r  savf  thft.a 

SAVFIK,R)  *  YI7) 
f.  SAVF  PS) 

SAVF I K  » 9 )  »  YI») 

C  SAVF  PHI 

SAVFIK.10)  *  Y(9) 


NAVTRADEVCEN  68-C-0050-2 


r.  SAVE  X 

SAVE(Ktll)  a  r(!0) 
c  SAVE  Y 

SAVE( K,  12)  a  Ylll) 

C  SAVE  2 

SAVE(K,13)  *  Y(  12  ) 

C  SAVE  DR 

SAVE! K, 14  )  =  DR 
r  SAVE  DS 

SAVF(K,15>  =  OS 
C  SAVE  DR 

SAVE  (K.16)  »  OR 
M  ICNT2  a  ICNT 2  ♦  1 
12  CONTINUE 

IF(NPNT-ICNT)  16,16,17 
16  ICNT  =  0 

IF(LINSPP“LI NS  120, 20,30 
20  IINS=0 

IPAGFa IPAGE+1 

WRITE! I  OUT ,24)1 PAGF 

’4  SIHUUrrON-,45,,. 

25  FORMATIlH  ,CX,*U»,16X,'V*,16X,'W,16X,*PS16X.»0*  to. 

TO  CONTINUE 

C. 

C  IF  VARIABLE  CT  F  P  SUE  NOT  BEING  USFO  DONT  PRINT  H 
I F  ( f'H  17  0,  ??,  70 

70  WRITE!  HUT, 101  fYU|,I«l,ni,H 

GO  TO  74 

7'>  WRrTf ( TOUT, 101  !Y (!)tt« l, 13) 

IINS=L(NS*7 
1  7  ICNT  =  ICNT  *1 

IF ( A8S IYI13 1-TL IM)-HI35,B, a 
06  CONTI NUF 

IF(  IPLHT)  4C , 4ft  ,40 

60  CALL  PlTRmMSAVF,Kf  ItOf,Ntnr,  IPUNJ 
GO  TO  44 
END 
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SUBROUT  I NF  INPUT 

DIMENSION  YIH),  TU  12)  ,  IL0CII6),  YHOLD  U  T )  ,  COM(?1<M 
EQUIVALENCE  I  COM ( 1 ), HI 
REAL  IX, IY,I Z, IXY, 1X7, IYZ 

COMMON  H,  HM AX ,  HMIN,  OH,  FCT ,  TL ,  NGS,  N,  1ST,  NPNT 

COMMON  TLIM,  R HDL  2,  PHOLT,  RH0L4,  RHOL5,  WMB,  FTA,  ETA^l  ,  ISW? 

COMMON  XOG,  XRR,  XPP,  XUP,  XVP  ,XWQ,  XUU,  XVV, 

1  XWW,  XD°  OR ,  XDSDS,  XDBDB  ,  XVVE ,  XWWF,  XOPORF,  XOSDRF 

COMMON  YRO ,  YPO,  YPAP,  YPQ,  YQR ,  YVO,  YVO,  YWP, 


1 

YWR, 

YP,  YP,  YARnp, 

YVAP,  YSTP,  Y V 

,  YVA V, 

? 

YVW, 

YOP ,  YRF,  YVF, 

YVAVF,  Y 0°  c 

COMMON 

zor. 

7PP ,  ZRP,  7PP  , 

ZWD,  ZVP,  7VP, 

70, 

1 

ZAQOS 

,  ZWAO ,  7STR, 

7  W ,  ZWAW,  7AW, 

ZWW ,  7  VV 

? 

zos, 

ZOB,  7QF ,  ZWF  , 

7WAWF,  ZOSF 

COMMON 

AKPO,  AKR0, 

AKQR, 

AKPC, 

AKPAP, 

AKP,  AKP,  AK VO , 

1 

AKVQ,  A  KWP , 

AKWP  , 

AKSTR 

,  AKV, 

AKVAV, 

AKVW, 

AKOR. 

? 

AKRTPF 

COMMON 

AMQ0,  AMPP, 

A  MPR  , 

AMPP, 

AMQAQ, 

A  M  W  0  , 

AMVP, 

AMVP, 

1 

AMQ ,  AMAQOS 

,  AMAWQ,  AMRTR,  AMW 

,  AMWAW 

,  A  ma  W 

,  A  MWW , 

? 

AMVV,  AMOS, 

AMOB, 

AMQF , 

AMWF, 

AMW  AW  F, 

AMnRE 

COMMON 

AMRO,  ANPO, 

ANPU, 

ANOR, 

ANRAR, 

ANVO, 

ANWP  , 

ANWP, 

1 

ANVQ,  ANP, 

ANP,  AN  AP  OR , 

ANAVR, 

ANRTR, 

ANV, 

ANVAV, 

? 

ANVW ,  ANOP, 

ANPF, 

AN  VF  , 

AN  VA  VF 

,  A  NOPE 

COMMON 

IX,  IY,  IZ 

,  IXY, 

1X7, 

I  Y  7 

COMMON 

CW,  CB,  UC 

,  X  B , 

YB ,  7« 

common 

OP,  OR,  OP 

,  PHP, 

AL  ,  AM 

rCMMPN  ORMAV  ,  FT  AH  l  ,  ETAtO,  All,  Al?,  AM 

COMMON  A?  1  ,  A2  ?,  A?T,  ATI,  AT?,  4TT 

COMMON  XO,  YG,  70 

COMMON  I  L  PC  ,  !t>LOT,  I«>IIN,  IOPFN,  NPL T ,  I  f'P  T 

COMMON  Y 

COMMON  TIME ,  R 1  ,  OFLTMA,  SWMAX,  P?,  OFI.TMI,  n<;p,  pop,  ffYC,  NR, 

1  INTRW 

IN  x  » 

I  F  f  IOPT  HSO.R,  IRO 
CONTINUE 
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READ! IN, 50)  NGS,  NPNT ,  IPLDT,  1RUN,  NPL T ,  IOPTt  ICYC,  NS,INTSW 
I F I IPUN) 70,60,70 
60  IFIIOPFN)  62,64,62 
62  CALL  PLOT (5.0, 0.0, 999) 

64  CONTINUE 
CALL  EXIT 
70  CONTINUE 

READ!  IN, 50)  ULCC(I)  ,  1  =  1,16) 

50  FORMAT (1615) 

REA0(IN,100)T0,H0,DH,HMAX,HM!N,FCT,TLIM 
H  =  HO 

100  FORMAT IBF10. 5) 

RE  AD (I N ,  1  00 ) (Till), 1=1,12) 

REAOI  !N,100M  Y(I),  1*1,12) 

Y  ( 1 3 ) =  TO 

READ! IN, 100)  XQQ,  XRR,  XRP,  XUD ,  XVR  ,XWQ,  XUU,  XVV, 

1XWW,  XDRDR,  XDSDS,  XDBDB,  XVVF,  XWWE,  XDRDRE,  XDSDSE 


READ! IN, 

100) 

YRD, 

YPD, 

YPAP 

.  YPQ, 

YQR,  YVD,  YVQ ,  YWP, 

YWR, 

YR, 

YP,  v 

■'•3  DP, 

YVAR,  YSTR,  YV,  YVAV, 

YVW, 

YDR, 

/RE, 

YVF, 

YVAVF,  YDRF 

READII N, 

100) 

ZOD, 

ZPP, 

ZRR, 

ZRP; 

ZWD,  ZVR,  ZVP,  70, 

1  ZAOOS,  ZWAO,  ZSTR;  ZW,  ZWAW,  ZAW,  ZWW,  ZVV, 

2  ZDS,  ZDR,  ZOF,  ZWE,  ZWAWE,  ZDSF 


READ! IN, 100) 

AKPO, 

AKRD, 

AKOR, 

AKPO, 

AKPAP,  AKp,  AKR,  AKVD, 

1 

akvq. 

AKWP  , 

AKWR, 

AKSTR 

,  AKV,  AKVAV, 

AKVW,  AKOR, 

•> 

AKSTPE 

READ! IN, 100) 

AMOD, 

AMPP , 

AMRP  t 

AMRP, 

AMQAQ,  A  MWD , 

AMVR,  AMVP, 

1 

AMQ, 

AMAQDS 

,  AM AWC 

l,  AMSTR,  AMW,  AMWAW 

,  amaw,  amww 

2 

AM  VV, 

AMDS, 

A  MOB  , 

AMOE  , 

AMWE,  AMWAWF, 

AMOSF 

RE  AD ( I N, 1 00  ) 

AMRO, 

ANPO, 

ANPO, 

ANQR, 

ANRAR,  ANVO, 

ANWR,  AN WP  , 

1 

ANVO, 

ANP, 

ANR,  ANARDP. , 

ANAVR,  ANSTR, 

ANV,  ANVAV, 

2 

ANVW, 

ANDR, 

ANRE, 

ANVE , 

ANVAVC ,  ANDRE 

RFADI IN, 100) 

IX, 

I  Y  ,  I  Z 

,  IXY, 

I  XZ, 

I  YZ 

READ! I N,100)  CW,  CR,  UC*  XB,  YB,  73 

r 

RFADUN.100)  DP,  OS,  DR,  RHO,  AL,  AM 

r 

R  FAD  UN, 100)  ORMAX,  E  T  AH!  ,  FTALO,  All,  A!’,  A13 
C 

RF  AD  ( I  N,  1  00  )  A2 1  *  A?2,  A??,  AM,  A3?,  A33 

r 

READ!  IN,  100)  XC,,  vr„  ZG 

r 

READ!  I  N,  1  00)  TIMF,  PI,  DEL  TMA ,  SH*»AX,  R  ?  ,  'FL  TMf  f  DSF,  D»F 

r 

C  SAVF  INITIAL  CONDITIONS  FD«  POSSIBLE  RFSTnop 


133 
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DO  110  1=1,  13 
YHOLD ( I ) =  Y  (  I ) 

110  CONTINUE 
C 

C  SAVF  DP  , DS ,DR  FOR  POSSIBLE 

r 

DRHCLO  =  DR 
dshcld  =  ns 

DBHOLD  =  DR 
RFTURN 
ISO  CONTI NUF 
C 

C  RESTORE  INITIAL  VAUiES 

r 
\ , 

no  15  ?  1=  1,13 

Y(  I)  =  YHOLD ( I ) 

152  CONTINUE 

r 

C  RESTORE  INITIAL  OR, OS, DR, H 

r 

DP  =  DR  HOLD 
CS  =  ns  HOLD 
DB  =  OR  HOLD 
H  =  HO 

READ ( I N , 1 65  I  IRUN 
IFIIRUN)  155,05,155 
155  CONTINUE 

150  READ (IN, 155)  NOEX ,  VALUE 
165  FORMAT! I  5, 5X,F 10.5) 

IF (NDFX ) 180, 170, l«0 
170  RFTURN 

1 30  COM (NDFX)  =  VALUF 
00  TO  160 
FND 


1?4 


RESTORE 
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SUBROUTINE  KUTTA(Y) 

DIMENSION  Ylll,  F(12),  Y?(13>,  Q(12>,  T L < 12) 
COMMON  H»  HMAXf  HMINf  DH,  FCT,  TL,  NGS,  N,  IS] 
IF(  ISI 12*1*2 

1  M  =  N  ♦  1 
K  =  0 
ISI  =  1 

OH4  =  DH*  DH  *  DH  *  DH 
CALL  FVAL  (Y,F) 

RETURN 

2  DC  3  I  -•  1,N 

Y2( I)  =  Y( I)  ♦  . 5*H*F { I ) 

3  0(1)  =  F ( I ) 

Y2  (M)  =  Y(M)  ♦  ,5*H 
CALL  EVAL(Y2,F) 

DO  4  I  =  1  ♦  N 

Y2( I)  =  Y ( I )  ♦  .  5*H*F (  I  ) 

4  0(1)  =  0(1)  ♦  F (  1 1  ♦  F  J I  ) 

CALL  FVAL ( Y2  *  F ) 

DO  5  I  =  1  ,N 

Y2(  I)  =  Y(  I  )  ♦  H  *  Fill 

5  0(1)  =  0(1 )  *  F ( T )  +  F (  I  ) 

Y2(  M)  =  Y(M)  ♦  H 

CALL  EVAL  (Y2,F) 

DO  6  I  =  1,N 

Y2(I)  *  Y(  I  )  «•  .  16666647  *  H  *  (0(1)  +  FID) 

6  0(1)  *  F(  I  ) 

CALL  FVAL  (Y2,F) 

I  F(  DH) 7,13,7 

7  DD  8  I  =  l ,  N 

0(1)  =  H  *  AB S ( F ( I )  -  0(1)  ) 

I  F  (  Q  (  1)  -  TUI  )  )8,R,1S 
3  CONTINUE 
DO  1  I  *  liN 
0(1)  =  FCT  *  DH4  *0(1) 

I F ( Q ( 1 1  -  TL(I))R,R»12 
9  CONTI  NUF 
K  =  K  ♦  1 

IF  (X  -  NGS)l3flO«10 

10  I F ( H  -  HMAX)ll,12,l? 

11  h  =  H  *  nH 

12  K  a  0 

t  )  DO  14  l  *  1,  N 

14  Y ( I )  =  Y?(I) 

Y(  M)  «  Y2 (  M ) 

RETURN 

15  IF (H-HMINI 12» 12* 16 

16  H  *  H/DH 

CAU  FVAl  ( Y,  F  1 
r.C  TO  7 


u  uc 
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SUBROUT  INF  FV  At  ( V  I ,  F  » 

01  MFNSTON  YI  (11  ,FU)  ,TL(12)  ,A(6,6),8(6) 

REAL  IX, IY, 17 , IXY, IXZ,IY7 
C 

COMMON  H,  HMAX,  HMIN,  OH,  FCT ,  Tl,  NGS,  N,  IS1,  NPNT 
C 


COMMON  TLIM, 

RH0L2 

,  RH0L3,  RH0L4 

,  RH0L5,  WMB,  ETA 

,  FTAM1, 

ISW2 

COMMON 

XQQ, 

XRR,  XRP ,  XUO, 

XVR  ,XWO,  XUU,  XVV, 

1 

XWW, 

XOROR,  xosns, 

XOROR ,  XVVF ,  XWWE 

,  XOROR F  , 

XOSOSF 

COMMON 

YRD, 

YP0 ,  YPAP,  YPQ 

,  YOR,  YVO,  YVQ, 

YWP, 

1 

YWR, 

YR,  YP,  YAROP, 

YVAR ,  YSTR,  YV, 

YVAV, 

2 

YVW » 

YOR,  YRF,  YVF , 

YVAVF,  YORF 

C 

COMMON  ZOO,  ZPP,  ZRR,  7RP,  7W0,  7VR»  ZVP,  70, 

1  ZAQOS,  ZWAO,  ZSTP,  7W,  ZWAW*  ZAW,  ZWW,  ZVV, 

2  ZDS,  7.08,  70F ,  ZWf,  ZWAWF,  70SF 

C 


COMMON 

AKPO, 

AKRO, 

AKQR  , 

AKPO, 

AKPAP, 

AKP,  AKP,  AKVD, 

1 

AKVO, 

AKWP, 

AKWP  , 

AKSTR 

,  AKV, 

AKVAV,  AKVW,  AKDR, 

? 

AKSTRE 

COMMON 

AMOO, 

AMPP, 

AMRR  , 

AMRP  , 

AMOAQ, 

AMWD,  AMVP,  AMVP, 

1 

AMQ, 

AMAQOS 

,  AM  AWO 

,  AMSTR,  A  MW 

,  AMWAW,  AMAW,  AM WW , 

2 

AM  VV, 

AMOS, 

A  MOB  , 

AMOE  , 

AMWF, 

AMWAWF,  AMOS  F 

COMMON 

ANRO, 

ANPO, 

ANPO, 

AN  OP, 

ANR AR, 

A  N  V  0 ,  ANWR,  AN WP , 

1 

AN  VO , 

ANP, 

ANP,  ANAR  OR  , 

ANAVR, 

AMSTR,  ANV,  AN  V  A  V , 

-> 

AN  VW  , 

AMOR, 

ANRF, 

ANVF , 

ANVAVR 

,  ANORF 

COMMON 

IX, 

IY,  T  7 

,  IXY, 

I  XZ, 

T  YZ 

c 

CCMMON  CW,  CP,  UC,  XR,  YR,  7* 

r. 

COMMON  OP,  OS,  DR,  RHP,  AL,  AM 

C 

COMMON  OR  MAX,  FTAHI,  FTAIO,  AM,  A  l  ?  ,  AIR 

C 

COMMON  A?l,  A?  2 ,  A2R,  A  R  1 ,  A??,  A33 

C 

COMMON  XG ,  YD,  7G 

C 

FOUIVAt  FNCF  (8  ( 1  )  ,FAI  ,  (  P(R»  ,Fl  )  ,  (R(3  I  ,FN) ,  (R(A  I  ,RM)  ,  (Rf  r')  ,RM) , 

1  ( B ( 6  I , YM ) 

PULI  PSFSFNT  VAUirS  TF  VARIABLES  OUT  OF  ARRAV  Y( 

U  «  Y  M  1  I 
V  »  Y I  (  ?) 

W  *  YURI 
P  -  Yl (41 
Q  »  YU  R) 

0  r  Y  I  (  S  I 

Vo 


n  o  r> 
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THETA  = YT (71 
PSI  =  YI<8) 

PHI  =  YT (9) 

X  =  YT { 101 

Y  =  YI(ll) 

Z  *  Y I  ( 1 2  5 

CALL  CONTR ( THETA ) 

COMPUTE  QUANTITIES  TO  BE  USED  MORE  THAN  ONCE 

VR  =  V*R 
Q2  =  0*0 
R  7  ~  R*R 
RP  =  R*P 
U2  =  U*U 

V  2  =  V*V 
W?  =  W*W 
0R2  =  OR*OR 
OR2U2  =  DR  2  *  U? 

DS?  =  OS*DS 
0S2U2  =  ns?*u? 

WP  =  W*p 

UR  =  U*R 

PABSP  =  P*ABS(P) 

PQ  =  P*0 
OR  =  Q*R 
VQ  »  V*0 
WQ  =  W*0 
WR  =  W*R 
UP  *  IJ*P 

RODTVW  =  SOP  T( V2+W? I 
VRTVW  =  V*ROOTVW 
ABSR  =  ABSIR) 

UARDR=lJ*ABSP*OP 

UV»U*V 

VVi  =  V*W 

DRU2*DR*IJ2 

UC=U*0 

VP*V*P 

p  2=p*P 

ABSOABS ( 0 ) 

UAQCS*U*ABS0*nS 
WRTVW*W*POOTVW 
UW«ll*W 
ARSW-ARSIWI 
UAR  SW»U*AB  Six 

rRu2«no*u2 

osu2*ns*u? 

A8SV  =  ABSI VI 
UMAG  »  SORT (U?*V2>W?» 
lEIUMA0»2A,?4f2A 
•>4  ETA  »  70, 

r,n  to  •jr 

■>b  CONTI  NUP 


1  ?7 


NAVTRADEVCEN  68-C-0050-2 


ETA  =  IJC/UMAG 
78  ETAM1  *  ETA-1. 

!F( ETA-ETAHI 132,30,30 
TO  A1 = A1 1 
A2=A1 2 
A  3-  A 1  3 
GO  TO  3 A 

3?  I F (  ETA-FTALD  35,  35,37 
35  A1=A31 
A2= A3? 

A  3=A  33 
GO  TO  ^8 

37  A1=A21 
A  2=  A  2? 

A3= A23 

38  CONTINUF 

(  V  »  ?,1,2 
1  RATVAV  =  0. 

GO  Tn  3 

^  RATVAV  =  V/ABSV 

3  I F  ( W  )  S,4,S 

4  RATfcAW  =  0. 

GO  TO  4 

5  RATWAH  =  W/ARSW 

6  CONTI NUF 

r 

C  COMPUTE  TRIG  FUNCTIONS 

C 

SPHI  =  SINIPHI) 

C  PH  I  =  COS I PHI  ) 

STTA  =  SIN(THETA) 

CTT  A  =  CPS(THFTA) 

SPSI  =  SINIPSI  > 

CPSI  =  COS(PSI) 

TRIG1  •=  CTTA*SPHI 
TRIG?  -  CTTA*CPHI 
TR  I  G  3  =  I  *  ST  T  A 

TPIG4  =  C °H I  *  S T T A 
TRIGS  =  H*CTTA 
IF (  ISW?)?0, 10,?0 

n  ISW?  -  1 

C 

C  SET  COEFFICIENTS  OF  UO , VO  *WD ,P0 ,Cr  »on  »  IN  MATRIX  rnj  INVCRTIN 
C 

A ( 1  ,11 =  AW-RHOt  2*xun 
A  I  1,21*  0. 

A(l,3)=  0. 

All  ,4)  =  0. 

AC  1,51=  AM*70 
MI.6I*  -AM*YG 
A  (  2  ,  i  i  *  0. 

A I  ?,?)  *  A1-BH  n\  X*  YVO 

AI2  ,3  )  =  0  . 

A  (  ?  ,  4  I  =  <,*yof>_AM#  Jr, 
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f 

C 

r 


r 

r 

c 

c 


r 

C 

r 


A<?  ,5) 
A(2,6) 
A(3,l) 
A  ( 3  ,2  ) 
A  (3,3) 
A( 3 ,4 ) 
A  ( 3  ,5  ) 
A( 3,6) 
A  (  4 , 1  ) 
A (4  ,2 ) 
A(  4,3) 
A ( 4 ,4 ) 
A  ( 4 ,5 ) 
A  (  4 , 6 ) 
A  (  5 , 1  ) 
A  (  5  ,2  ) 
A  (  5 , 3 ) 
A  ( 5 ,4  ) 
A  (  5 ,5  ) 
A  (  5 , 6  ) 
A  ( 6 , 1  ) 
A  (  6 ,2  ) 
A  (  6 , 3  ) 
A  ( 6  ,4) 
A{ 6,5) 
A  (  6 , 6  ) 


0. 

-RH0L4*YR0+AM*XG 

0. 

0. 

AM-RH0L3*ZW0 

AM*YG 

-RH0L4*  ZCO-AM*XG 

0. 

0. 

-RH0L4* AKVD-AM*ZG 
A  M*YG 

I X-RHOL  5*AKPD 
- 1  X  Y 

-I XZ-PH0L5*AKPn 
AM*  7G 
0. 

-RHDL4*AMWn-AM*Xr, 

-  IXY 

I  Y-RHf!L5*AMQ0 

-  I  YZ 
-AM*YG 

-RHnL4*ANVn+AM*XG 

0. 

- I X  Z-RHDL5* ANPO 
-IYZ 

I Z-RHOL  5*ANR0 


INVFRT  A  MATRIX 


FPS  =.(100001 

CALL  INVFR2(A,ft,6,6,IFR,FPS) 

I  F (  IFR )  14, 16,14 

14  WRITE (3,15) 

15  PORMATMH  , ’SINGULAR  MATRIX’) 
CALL  FXITO 

t 6  CONTINUE 


?0  CONTINUE 

COMPUTE  RIGHT  SIDE  OF  AXIAL  FORCE  FON 
40  CONTINUE 

FA*  (A***(VR-WC)  ♦  RH0L4*(  X00*02*XRR*R?+XRP*RP  >  * 

1  RHOL  3*  (  XVR*VR  ♦XWO*WO  )  *°  HOL  ?*(  XUU*U2*  XW*V?*  XWW*W*W)  ♦ 

2RHOL?*U2*(  XOROR*DR5  ♦xr>SOS  *05?  *X  nP0')*0R*nR  )  ♦ 

3PH0L  2*(  A  l*U2  +  A?*t)*UC*A3*lJC*UC  )  -  WMR*STTA*  RHOL?*  (XVVE*V?  ♦XWWP*W2* 

4X0RCPR*r»R2U?  ♦  XDSnSFROS’U?  )*FTAM1) 

5  ♦A*'*(  XG*(  0?*R?)  -Y0*PQ-7G*RP  I 
COMPUTE  RIGHT  SIOF  Or  LATERAL  FC'RCE  FQN 
50  CONTINUF 

FL  *  AM*(WP-U3 )*RH0L4*( YRAP*PARSR*YPQ*PO*VOP*OR )  ♦ 

1 R  HOL  3 • ( YV0*V0*YWP*WP*YWP*WP*YR*UR*YP*UP4YARnR*U*Afl50*no  ♦ 
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2YVAR*RATVAV*R00TVW*ABSR )*RHOL?*l YSTR*U2+YV*UV+YVAV*VRTVW  + 
3YVW*VW*YOR*PRU2)  ♦  WMR*TR IG1*PH0L3*YRE*UP*FTAMI ♦ 

4RH0L?*( YVE*UV+YVAVF *VRTVW* YORF*DRU? ) *ETAMl 
**  ♦AM*(YG*(R24-P?  )-ZG*0R~XG*O0  ) 

c 

C  COMPUTE  RIGHT  SIDE  OF  NORMAL  FORCE  PON 
C 

60  CONTI NIJF 

FN  =  AM* (UQ-VP )  ♦  RH0L4  *  ( ZPP*P7*7RR*R ?*ZRP*RP)  +  RHOL 3* ( 7 VR*VR ♦ 
1ZVP*VP  *ZQ*UQ  +7AQOS*  UAQOS  ♦  ZWAQ*  R AT W AW* ROOTVW* ARSO )  + 

2RHOL2  *  (  Z  STR  *U2  ♦  7W*UW*ZWAW  *  WRTVW  *  Z  A  W*tJARS  W*  ZW  W*  ARS  W*R  OOTVW 
3*  ZVV*V2  *ZDS*DSU2  ♦70B*0BU2)  ♦  WMR  *  TRIG2  +  RHOL 3*  ZQF*UQ*  F TA Ml 
4*RHOl?*<ZWF*UW*7WAWE*WRTVW*  ZDS E *OSU2 ) *FT AMI 
6  *AM*  (  7 G* (  °?+Q?  )-XG'>RP-YG*0R  ) 

C 

C  COMPUTE  RIGHT  SIOF  OF  POLLING  MDMF NT  EON 
C 

70  CONTINUE 

PM=(  I  Y-IZ)  *QP*  I  X7*PQMYZ*(Q2""P?)“IXY*RP+PHOLS*  {  AKQR  *QR  + 
lAKPO*PQ+AKPAP*PARSP)-fRHOL  A*(  AKP*iJP+AKR*UR  +  AKVQ*VO+AKWP*WP 
?«-AKWR*WP  J+RH0L3*  (  AKSTR*U?*AKV*UV*AK  VAV*VPTVW+AKVW*VW  +  AKDR*DRU?) 
3+(  YG*C.W-YB*CR)  *TRIG2-t  7G*CW-7B*CR)*TR  IG1  +  RHOL 3* AKS TR E*U ?*FT AM  1 
4  + AM* ( YG* ( UQ-VP ) +7G* ( U°- WP )  ) 

C 

C  COMPUTE  RIGHT  SIDE  OF  PITCHING  MOMENT  FQN 
C 

RO  CONTINUE 

PM  =  UZ-IX)*RP+IXY*QR+(R?-P?1*IX7-IYZ*P0  +RHOL  5*  t  AMop*p  ?+  amor* 
1R?  *AMRP*RP  ♦AMOAQ*Q*ARSO  l+RHOl  4*(  A  MVR*  VP  ♦  A  MVP*  VP*  A  MQ*U0*  AM  A  ODS* 
7UAQDS  *AMAWG  *Q*ROOTVWI*  RHOL3*(  AMSTR*U2+AMW*UW*AMWAW*WR  TVW  + 
3AMAW*  UARSW  ♦AMWW*APSW*0OOTVK+AMVV*V7*AMDS*r>RU7  +  AMnP*nRij?) 
4-(XG*CW-XB*CR)*TR  I G7-  (  7 G*CW- 7 B*C3  )  *  S  T TA  *RHOL 4 *A MQF  *|)0*F  TAM  1 
6+RH0L3*!  AMWE  *UW*  AMWA  WE*WRT  VW*  AMOS  E*  0SIJ2  )  *  F  T  AMI 
4  +  AM*f 7G*( VR-WQ )*XG*( VP-U01 I 
C 

C  COMPUTE  RIGHT  S?OF  IF  YAWING  moment  pqn 

OO  CONTINUE 

YM  a  < I X-I Y) *PC  *  I Y  7  *R  P  *(P?-02)*IXY  -  IXT*OP  ♦  R HOL  E* f ANPQ* 

IPO  ♦  ANQ»*OP  *ANRAR*P*ARSR »*RH0L4*l ANWR*WR*ANWP*WP  *ANVO*VO  f 
RANP*UPa  ANR*UR  ♦  ANARDP*  UAPOP  ♦  ANAVR  *  R*ROOT\/W)  ♦ 

3RU0L3*!  ANSTP*U2  *ANV*IJV»  ANVAV*V®TVW*  ANVW*VWNANnR*0Rl)2) 

4  ♦  (  X  G*  C  W  -  X  3*  C  R  )  *  T  R  TGI  ♦  (  YG*CW- Y«  *C0  )  *  S  T  TA  *P  HOL4*  A  NRF  *IJB  *F  TAmi  ♦ 
SRHOL7  *  (  ANVF*UV*ANVAVF*VPTVW  ♦ANi)RF*0RU7  )*ot  ami 
f  »AM*(  tG*(  WP-IJO  i  *YG*(  W0-Vn  J  I 
r 

r  MULTIPLY  TT  r.PT  UO,  VO,  wr,  pn,  cr>,  on 

r 

CALL  MATMPYIA,R,E,4,6, f  «  «>****•  1> 
r 

C  COMPOTE  KINEMATICS  -  THETA  OOT  ,  I'f'  T,  PHJ  nor 

C 

f(7>  *  C*C.  PMl-R*S:Uj 

F (  R )  c ( Q*S PH I  *P  *C  PM  I  )  /F  T  TA 


o  »- 
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F<9)  =P+F( R  )*STT A 

CHMPUTF  X  DOT  ,  Y  OnT  ,  7  HOT 

F(  10)  =TRIG«5*CPSI*V*lTRIG1*CPST-CPHI*SPSn 
1  W*(TR IG4*CPSI  ♦  SPHI*SPS!) 

F  ( 1  i  )  =TRIG‘>*SP<;  I+V*  ITR  ir,^*SPS!  +  CPHI*r.P«;i  ) 
1  W*(TPTG4*SPSI-SPHI*CPSf ) 

M 12)=-U*STTA*V*TP  IG1+W*tr  ig? 

RETURN 

ENP 
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SUBROUTINE  INVER ?( A , M , N, L , I C ,F PS  1 

C  A  THF  INPUT  MATRIX  CONTAINS  THF  INVERTED  MATRIX  A-l  UPON  EXIT 
C  THE  SOLUTION  IS  STORED  IN  A  ( T  *  J >  ,  M<J<N 

c  M  IS  THE  NUMRER  of  rows  STORED  IN  MATRIX  a. 

C  N  IS  THF  NUMBER  OF  COLUMNS  STORED  IN  MATRIX  A. 

f.  LIS  THE  MAX  NUMBER  OF  POWS  ALLOCATED  IN  A. 

C  l  IS  VALUE  XX  IN  DIMENSION  A(XX,YY) 

f  1C  IS  0  IF  A  IS  INVERTED  SUCESSFULLY,  IF  EACH  DIAGONAL  PLFMFNT 

C  IS  GREATER  IN  ABS  THAN  FPS. 

C  IC  IS  1  IF  A  IS  NOT  INVFRTFD  SUCF SSFIJLL Y. 

C  FPS  IS  A  VALUE  SAY  .00001  THAT  IS  USED  FOR  SINGULARITY  CHECKING. 

C  FOR  A  DOUBLE  PRECISION  VERSION  CHANGE  ARS  TO  DABS  IN  5,  AND  THF 

f  LITERAL  1.  IN  STATEMENT  10  TO  1.00 

DIMENSION  All) 

C  DOUBLE  PRECISION  A 

IC  =  0 
no  PO  1=1, M 
LI  =  L*t-L 
II  =  LT+I 

5  IF<ABS(A( II) 1-FPS1 R0,P0,10 

10  A ( I  I  J  =  1  .  / A (I  I) 

DO  50  K  =  1  ,N 
ir{K-I 120,50,20 
?0  LK  =  L*K-L 
IK  =  LK* I 

A (  I K )  =  At  IK)*  All  I) 

DO  AO  J=1,M 
I F ( J-I 130, AO, BO 
’0  JI  =  L  I  * J 

JK.  =  LK*J 

A  I JKI  =  A ( JK )  -  A ( J I  )  *  A ( l K 1 
AO  CONTINUE 

SO  CONTINUE 

^0  70  J  =  1  ,M 
IF( J-I 150,70,50 
50  JI  -  L  I  ♦ J 

A( JI)  =  -  A ( J I  1  *  AIII1 
TO  CONTINUP 

PO  CONTINUE 

RETURN 
nO  I C  »  1 

rfturn 

FND 
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SUBROUTINE  MATMPY  ( A,  B  ,  C,  M,  N,L » MA,  MB,  MC  *  IOPT  ) 
DIMENSION  Ml)fB(l)  ,C(1) 

DOUBLE  PRECISION  A,B,C 
KK=  -MB 
II  *  -MC 
ILL  =  0 
10  LLL=LLL+1 
II=II+MC 
I  =  II 
KK=  KK+MB 
111=0 
J  J=  -MA+  1 
40  K=KK 
J=JJ 
1=1+1 
KKK=0 
T 1 1  =  1 1 T  +  1 
C  (  I  )  =  0  . 

BO  K=K  +1 
J  =  MA  +  J 
KKK=KKK  + 1 

C( I J=C( I ) ♦  A ( J  )*b(K ) 

IFIKKK-N)  SO, SO, 60 
SO  JJ=JJ+1 

IF(III-M) 40 ,70,70 
70  I F ( LL l- 1)30,80,80 
BO  RETURN 
END 
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SUBROUTINE  INTFGl Y, INTSW) 

DIMENSION  Yd),  Fd?),  TL  (  1  ?  I ,  Fid?) 
COMMON  H,  HMAX,  HMJN,  DH,  FC.T,  TL,  NGS , 
TF!  ISIMO,  10,10 
10  Ms  N  +  1 

DO  20  I  =  1,N 
FID  =  0 . 

20  FI (I)  =  0 . 

ISl  =  \ 

RFTURN 

10  CALL  FVAL1 1 Y,  FI 
no  40  I  =  l ,  N 
GO  TO  142,44,46), INTSW 

4 7  CONTINUE 

r. 

Yd)  =  Y  (  I  )  ♦  ,e'*H*(3,*F(  I  )-F1(  I)  ) 

C. 

rn  to  44 
44  CONTINUE 

r 

Y (  1 )  =  Y (  l )  +  . ?5*H*ll.*F( I  )+P] (I)  ) 
f 

no  TO  48 
46  CONTINUE 
C 

Yin  =  Yin  ♦  h  *  fid 

c 

48  CONTINUE 
Fid)  =  '=  (I  ) 

40  CONTINUE 

Y ( M )  =  Y(N)+H 
RFTURN 
c  ND 


UL 
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r 

c 

c 


c 


c 


c 


c 


c 


c 

c. 

r 

r. 

c 

r 

c 

c 

c 

c 


SUBROUTINE  FVAL1(Y!,F) 
DIMENSION  Yim,F(l)tTL(12I 
REAL  IX,IY»!Z»IXY, IXZ*IYZ 


COMMON  H,  HMAX,  HMIN,  OH,  FCT,  TL,  NGS,  N,  I  SI ,  NPNT 

COMMON  UIM,  RHOL2,  RHOL3,  RHOL 4,  RHOL5 ,  WMB ,  FTA,  FTAM1,  ISW2 


COMMON 

xoc, 

XRR, 

XRP,  XUO, 

XVR  ,XWQ,  XUU,  XVV, 

1 

xww. 

XOROR ,  XOSOS, 

XDBDB ,  X VVF ,  XWWE,  XDRDRE,  XDSOSE 

COMMON 

YRO, 

YPO , 

YPAP,  YPQ 

,  YOR,  YVD,  YVQ,  YWP, 

1 

YWR, 

YP, 

YP,  YARDR , 

YVAR ,  YSTR,  YV,  YVAV, 

2 

YVW, 

YDR , 

YRF ,  YVF , 

YVAVE,  YORF 

COMMON 

ZOO, 

ZPP, 

ZRR ,  ZPP, 

ZWD,  ZVP,  ZVP,  ZO, 

1 

zaoos 

,  ZWAO,  ZSTR , 

ZW,  Z  WA  W ,  Z  AW,  ZWW,  7VV, 

2 

ZDS, 

ZDR, 

ZQF  ,  ZWF, 

ZWAWE,  ZOSF 

COMMON 

AKPO,  AKRO, 

AKOR, 

AKPQ, 

AKPAP, 

AKP,  AKR,  AKVD, 

1 

AKVQ,  A KWP , 

AKWR, 

AKSTR 

t  AKV, 

AKVAV, 

AKVW,  AKDR , 

? 

AKSTRF 

COMMON 

AMOO,  AMPP, 

A  MRP  , 

AMOP, 

AMQAQ , 

AMWD, 

AMVR,  AMVP, 

1 

AMQ,  AMAQDS 

,  AMAWO,  AMSTR,  AMW 

,  AMW AW 

,  AMAW,  AMWW 

? 

AMVV,  AMDS, 

AMDB, 

AMOE, 

AMWF, 

AMW  AW  F, 

AMDSF 

COMMON 

ANRD,  ANPD, 

ANPO, 

ANOR, 

ANRAR, 

ANVO, 

AN WR ,  ANWP , 

1 

ANVO,  ANP, 

ANR,  ANAR  DR, 

AN AVR, 

ANSTR, 

ANV,  ANVAV, 

•> 

ANVW,  ANDR, 

ANPF, 

ANVE , 

ANVAVE 

,  ANDRE 

COMMON 

IX,  IY,  IZ 

,  IXY, 

IXZ, 

I Y  7 

COMMON 

cw,  cb,  ur 

,  X  B , 

YB,  ZB 

rOMMON 

Oft t  nst 

,  RHn , 

AL,  AM 

COMMON 

CR*AVf  ETAHI,  ETALO,  All,  A12, 

A 1  3 

COMMON  API,  A22,  A?3,  A31,  A3?,  A33 


COMMON  XG,  YG,  ZG 


PULL  PRFSFNT  VALUFS  OF  VARIABIES  OUT  OF  ARRAY  Yt 

U  «  Yllll 
V  »  YU  ?» 

W  »  Y  I  t  3  | 

P  *  YM4) 

0  ■  YIIU 
R  ■  Y  I  (4  ) 

THFTA  * Y!  I  7 1 
PSI  «  YH«I 


Ub 
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PHI  =  Y!(9) 

X  »  YI ( 101 

Y  =  YI(ll) 

Z  =  YII 12  ) 

CALL  CONTRI THETA) 

C 

r  COMPUTE  QUANTITIES  TO  BP  US^O  MQRF  THAN  DNCF 
C 

VR  =  V*  R 

Q?  =  0*0 

R?  =  R*R 

RP  -  RAP 

U?  =  U*U 

V?  =  V*V 

W  2  =  W*W 

DR?  =  nR*OR 

OR2U2  =  hr  2  *  U2 

OS?  =  HS*0S 

DS2U2  =  OS?*U2 

WP  =  W*p 

UR  =  U*R 

PA8SP  =  P*ABS(P) 

PQ  -  P*0 
CR  =  Q*  R 
VQ  =  V*Q 
Hi  0  =  W*Q 
WR  =  W*R 
UP  =  U*P 

c 00 TVW  =  SOP  T( V?+W? ) 

VRTVW  =  V*ROr)TVW 
ABSR  =  ABSIP) 

UAR DR  =  U*ABSP  *0R 

UV=U*V 

VW=V*W 

0RU2=0R*U? 

IJQ=U*Q 

V  P  -•  V  *  P 
p?=p*p 
ABSQ= ABS ( 0  I 
UAQ0S=U*ABSC*0^ 

HR  TVW-W*ROnTVW 
UW=U*H 
ARSH=ARS(WI 
UABSW=U*ABSW 
0BU2  =  nB*l)2 

nsu2=os*u? 

ABSV  =  ARStV) 

UMAG  =  SORT ( U2*V?*W?  I 
I  F  (  UMA('.)?6,?A,?A 
? 4  F  T  A  »  ->0. 
rc  TO  ■*  R 
f  DNT  I  N'JC 
HA  =  IJC/U‘4AC, 

•>R  TTAV1  -  FT  A-  I  . 

Mr- 


r>  o  r»  non 
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ETAM1  =  FT  A-  1 . 

I F  ( ET A-ET AHI  >32,30,30 
TO  A  1=A  1 1 
A2=A12 
A3=A1 3 
GO  TO  38 

32  I F  (  ETA-ETAlO)35»35,37 
35  A 1=A31 
A  2=  A  32 
A3=  A33 
GO  TO  38 

37  A  1=A2 1 
A2» A22 
A3= A23 

38  CONTINUE 

I F  ( V  )  2, 1,2 

1  RATVAV  =  0. 

GO  TO  3 

2  RATVAV  =  V/ABSV 

3  TF(W)  5,4,5 

4  RATWAW  =  0. 

GO  TO  4 

5  RATWAW  =  W/ABSW 
4  CONTINUE 


COMPUTE  TRIG  FUNCTIONS 


SPHI  =  S IN ( PHI  1 


10 


C  PH  I  = 

COS(PHI) 

STT  A  = 

S I N < THETA  ) 

CTT  A  = 

COS(THETA) 

SPSI  = 

SI N( PSI ) 

CPS  I  = 

cnsipsi ) 

TRIG1 

=  CTTA^SPHI 

TRIG2 

-  CTTA*CPHI 

TRIG3* 

SPHI*$TT  A 

TRIG4 

=  CPHI  *  STT  A 

TR  IG5 

=  U*CTTA 

I F ( ISW2 )20 » 1 0, 20 

I  SW2  * 

l 

1  COEFFICIENTS  OF  UH,vn,WO 

FAU 

*  AM-P  HOL  T*  XUO 

FAQ 

*  A**ZG 

FAR 

*  -am*yg 

FLV 

*  AM-RHOL  3* VVO 

FLP 

»  -RHOL4*YPO-AM*7G 

FIR 

■  -RH0L4*YRn*AM*Xr, 

FNW 

«  AM-RHOt  3*2WH 

FNP 

«  AM* YG 

FNQ 

*  -RH0L4*ZQP-AM*XG 

RMV 

«  -R  HOC  4*  AX  VO-AM*Zi 

P  MW 

«  A  M*YG 

147 


NAVTRADEVCEN  68-C-0050-2 


RMP 

s 

IX-RHOLF*AKPD 

RMQ 

s 

-TXY 

RMR 

= 

-I XZ-PHOLF*AKRn 

PMU 

■= 

AM*  ZG 

PMW 

s 

-RH0L4*AMWD-AM*XG 

PMP 

= 

-I  XY 

PMQ 

s 

IY-RH01 5* AM00 

PMR 

- 

-TY7 

YMU 

s 

- AM*Y0 

YMV 

= 

-RHOL4*ANVO*AM*XG 

YMP 

s 

-I XZ-RHOLF*ANPn 

YMQ 

= 

-I  YZ 

Y  MR 

= 

I  Z-RHOLF*ANPO 

?0  CONTINUF 

r 

r  compute  un  from  axial  fgrcc  fqn 
r. 

40  CONTINUF 

F{ 1 )  =  ( ( AM*( VP-WOI  ♦  RH0L4M  X0Q*Q?«-XRR*R2+XPP*RP  )  + 

1 R HO l  3 *  (  XVR*VP  ♦XWO*WO  M-PHOL  ?*( XUU*U2*  X VV*V?+  XWW*W*W)  + 

?RHOL2*U2*(XDROR*DR2  ♦  XOSO^OF?  ♦XDBnB*nR*nR  )  + 

3RHOL2  *(  A 1  *U2*  A2*U*UC*  A3*IJC *UC  )  -  WMR*STTA*  PHOL?*  ( XVVF*V2+ XW W F*W 2+ 

4X0PCPE*QP2U?  ♦  X0S0SE*nS2IJ?  )*FTAM1) 

5  +AM*( XG*  ( 02 +R? ) -YG*PQ-ZG*R P ) 

6  -FAQ*  F(B)-FAP*  F  (  6  I  )  /F  A  U 
C 

C  COMPUTE  vn  FROM  LATERAL  FORCE  FOM 
C 

SO  CONTINUE 

F<  2  )  =1  AM*(  WP-UR)  +PH0L4*(  Y P AP*P ABS P+Y PQ* PG+Y QP*OR  )  «- 
1RH0L?*  I  YVQ*VO+YWP*WP  +  YWP*WR  +  YR*UP  +  YP*UP  +  YARnR  *U*AHSR*r>R  + 

2YVAR*RATVAV*R00TVW*AR$R)*RH0L2*( YSTR*U2+YV*UV+YVAV*VRTVW  + 

3Y  VW*VW+ YDR  +  0RIJ2  )  +  y^MR*  tq  j  r,  l  4.0HOLB*  YR  E*IJR  *E  T  A  ^1  ♦ 

4  0  HOI  ?* ( YVF*UV+YVAVF*VR TVW+YO«r*ORU? ) ♦FT A  Ml 
c  +am*iyg*(R?+p?  )  -?G*QR-XG*PQ  \ 
f.  -FLP*  c  <  4 )  -  FL  R  *F  <  Ml  /FLV 

r 

C  COMPUTE  wn  from  NORMAL  FORCF  EQN 
C 

40  CONTINUE 

P(  3)  =  (  AM*(  tJO-VP)  ♦  RH0L4  *  (  ZPP*P?,*ZRR*P?  f7°P*RP  )  *  PHOL  3*  (  7VB*VR  ♦ 
1ZVP*VP  +ZQ*UQ  WAQDS*  UAQOS  ♦  7  WAG*  RATWAW*Rf'r'TVW*AR^O)  ♦ 

2RH0L?  *(ZSTP*U2  ♦  7W*UW*ZWAW  *  WRTVW  *7.  AW*UAPG  WfZ  WW*APSW*ROnTVW 
3+  2  VV*V?*Zf>S*DSlP  WDB*nRU?»  *  WMR  *  TRIG’  *  0  HOLT*  7QF*UQ*  FTAM1 
4  *R HCl  ?*tZWE*UW*ZWAWE*WRTVW*ZDCE*QSU?  )  *F  T  A  M  l 
e  ♦  AM* ( 70* ( P2  +  Q? ) -XO*RP-YG*QR ) 
f  -FNP*  C(4)-FN0*F(‘>)  I/FNW 
r 

C  COMPUTE  on  FROM  ROl  LING  MOMENT  FQN 

r 

70  CONTINUF 

F  (  4  1  =  (  I  I  Y-I  7  1  *QR*  I  X  7  *PQ*  f  YZ*  I  OR-R?  |  -  IXY*PO*®MMi  *>*(  AKQOOQR  *■ 
iakpq*pq»ak0ap*par«;pi  ♦rhola*  (  AKP*UP*AKR*UP*AKV  '‘♦VO*  AKWPOWP 


1/.3 


o  o  -»  n  o  ^  t  n  o  r*>  r> 
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2  +  AKWR*WR)*RHOl3*(AKSTR*U2  +  AKV*UV*AKVAV*VRTVW«'AKVW*VW*AKORtDRU2) 

3  +  < YG*CW-YB*CB J*TRIG2-( ZG*CW-ZB*CB) *TR IG1 ♦RH0L3*AK$TRE*U?*ETAM1 

4  ♦AM*(YG’MU0-VP)  +  ZG*<UR-WP»1 

*5  -RMV*F(2)-RMW*F(3)  -RMQ*F(5I-RMR*F(6)  )/RMP 

CCMPU1E  Qn  FROM  PITCHING  MOMFNT  FQN 
30  CONTINUE 

F  C  5  )  =  (  (I  Z- 1 X  )*RP4-IXY*QR  +  <R2-P2  )*IXZ-  IYZ*PQ  ♦RHOLB*! AMPP4P2+AMRR* 
IP  2  +AMRP*RP  ♦  AMQA0*0*ABSQ)+RHnL4*(AMVR*VR*AMVP*VP+AMQ*UQ4-AMAQDS* 
2UA00S  +AMAWO  *0*ROOTVW)+  RH0L3*I  AMStR *U2*AMW*UW*AMWAW*WRTVW  ♦ 
3AMAW*  UABSW  +AMWW*AB$W*ROOT VW*AMVV*V2 ♦AMOS* Q$U2*AMDB*DBU2) 

4- ( XG*CW- XB*CB )*TR IG2“( ZG*CW-ZB*CB) *STTAfPH0L4*AMQF*UQ*FT  AMI 
S+RH0L3M  AMWE*UW  +  AMWAWE*WRTVW*AMDSE*DSU2  J*FTAM1 

6  +AM*(ZG*(VP-WQ)+XG*( VP-UQI ) 

7  -PMU*C( 1)-PMW*FI3)-PMP*F<4)-PMR*F<6) ) /PMQ 

COMPUTE  RD  FROM  YAWING  MOMENT  EON 
<■>0  CONTINUF 

F  (  6 1  *  (  (I  X-I  Y)  *PQ  ♦  I Y  Z*RP  ♦  < Pk-Q2 ) ♦ I  X Y  -  IXZ*QP  ♦  RHITL  5*  (  ANPQ* 
1PQ  ♦  ANQR *QP  ♦ANRAR*R*ABSP )+RH0L4*t ANWR*WR+ANWP*WP  *ANVO*VQ  ♦ 

2 ANP*UP+  ANR*UR  ♦  ANAROR*  MAR OR  ♦  ANAVR  *  R*ROOTVW)  ♦ 
3RHOL3*(ANSTR*U2  ♦ANV*UV+ANVAV*VRTVW*ANVW*VW+ANDR*OPU?) 
4+(XG*CW-XB*CB)*TR  IGl  +  t  YG*CW-YB*CB  )*$TTA+RH014*ANRF *UR*ETAM1  ♦ 
5RHOL3*! ANVE*UV+ANVAVF*VRTVW  +ANDR F* DRU2  )*FT AM  1 

6  +AMt(  XG*(WP-UR  }+YG*(  WO-VRM 

7  -YMU*F(l!-YMV*F<2!-YMP*F(4)-YMg*F( S) ) / YMR 

COMPUTF  KINFMATICS  -  THETA  HOT  f  PSI  DOT,  PHI  DOT 

F ( 7 )  =  Q*CPHI-R*SPHI 
F  (  8  )  =(Q*SPHI+P*CPHI  J  /CTTA 
F(R)  =P*FI8)*STTA 

COMPUTE  X  DOT  ,  Y  DOT  ,  7  DOT 

F ( 10) =TR!G5*CPS!+V*<TRIG3*CP$I-CPHI*SPS I  )♦ 

1  W* ( TR  I G4*CP  SI  ♦  SPHI*SPSII 
F  1 1 1 )  =TR  IG5*SPS  I+V*  ( T®  IG3*SPS  I+CPHI  *C.PSI  )  ♦ 

1  W*(TRIG4*SPSI-SPHI*CPSII 
F(  1  2I*-U*STTA+V*TRIGUW*TR!G? 

RETURN 

END 
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SUBROUTINE  PLTROU(SAVE,K,ILOC,NLOC, IRUN) 
DIMENSION  SAVE  I300»  1  ) , ILOC ( 1  ) »  TY<16),  IR(2) 
IR(  U  =  IHEX(  13,9,14,4,  13,5,4,0) 

IR 121*  IHFXI13,  5, 13,6,4,11,4,0) 

r  t 

I Y! 1 )  =  IHEXI 14,3,4,0,4,0,4,0) 

C  U 

IY(2)=THEX(14,4.4,0,4,0,4,0  I 

f.  V 

I Y ( 3 »  =  lHEX(14,5,4, 0, 4,0,4,01 

c  w 

IY(4)=IHFX<14,6,4,0,4,0,4,0) 

C  P 

I Y( 5) =IHEX( 13,7,4,0,4,0,4,0) 

r.  o 

IY 16 )=; HEX (13, 8, 4, 0,4, 0,4, 01 

r.  R 

IY( 7 )  =  l HF  X( 13, P, 4, 0,4, 0,4,0) 

C  THTA 

IY(8)  =  IHEXU4, 3,1?, 8,14, 3, 12,11 

r  psi 

IY  ( <9  )=  I  HEX  (13, 7, 14, 2,  12, 9, 4,0) 

r  phi 

IY( 10)=IHEX( 13,7,12,8,12,9,4,0) 

r  x 

IY( 11)=IHEX(14,7,4,0,4,0,4,0) 

C  Y 

I Y  « 1?)  = I  HEX! 14,8,4,0,4,0,4,0) 

0  7 

IYI 13)  =  I  HE  X  C 14,9,4,0,4,0,4,0) 

C  n« 

IY(14I=THEX(12,4,13,9,4,0,4,0) 

f.  ns 

TV(  15)  =  I  HE  XU  2, 4, 14,  ?,  4, 0,4,0) 

C  0  8 

IY(  IM-I  HE  X(  12,4,12,2,4,0,4,0) 

PIV  =  ?0. 

CALL  SCALE (SAVE (l ,1 ) ,4.0,K, 1 ,PIV, l  ) 

I CTL- 0 

CALL  PLOT (0.0, .75, ?3  ) 
no  PO  I  *1  ,NLPf. 

J  a  I  L  OC  (  I  ) 

I F ( J  )  >0,90,30 
30  CONTINUE 

CALL  SCALE (SAVF( l,J),4.0,K,l,r»tv,?) 

CALL  AX!S(0.r ,0.0, IV U I , -4,  ft  .0,  0 .0,  DIV, 1) 

CALL  AX! S( 0,0,0. 0,1 Y( J  ) ,4, A. 0, 90.0,01V, ?  ) 
CALL  SVMROL ( 4  .0, 3 . 5, 0 . 1 4, IR , 0 . 0 , 8 ) 

A l RUN  *  I  RUN 

CALL  N'IMPPR  (-0.  0,-0.  0, -0.  0,  AIEHN.0.0  ,”1  I 
CALL  l INF (SAVFI 1, 1 ),SAVF( l,J),K,I,0,0) 

IHIfT!  >49,  *0,40 
rO  CALL  "1  07(0.0,4.40, -»3) 

ICU*  l 


1 tn 


NAVTRADEVCEN  68-C-0050-2 


GO  TO  80 

60  CALL  PL0T(8.5,-4.50,-?3) 
ICTL«0 
80  CONTINUE 

^0  IFUCTL  U10,  100,110 
100  CALL  PtOTIO.O, -.75,23) 
RETURN 

110  CALL  PLOT  (8.5,-5.25,23) 
RETURN 
END 
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SUBROUTINE  CONTP { THFTA ) 

C 

C  TO  CONTROL  OS  AND  OR  FOP  DYNAMIC  CONDITIONS 
C 


C 

C 

C 


c. 


c 


c 


c 


r. 


r 

c 

c 

c 

c 

c 

c 

c 

c 


DIMENSION  TLI12),  IL0CI16),  Yin) 

REAL  IXfIYfI?fIXY»IXZfIYZ 
RFAL  K 

COMMON  H,  HMA  X  ,  HMJN,  DH,  FCT,  TL »  NGS,  N,  I S 1  ,  NPNT 

COMMON  TLIM,  RHOL2 »  RHOLT,  RH0L4,  RHOL5,  WMR,  FTA,  ETAMi,  ISW? 

COMMON  XQOy  XRR,  XBP,  XUD,  XVR,  XWOt  XtJU,  XVV, 

1  XWW,  XDRDP,  XDSDS,  XDBDB,  XVVE,  XWWE,  XDPORF,  XDSDSF 


COMMON 

YRD, 

YRPy 

YPAP,  YPQ 

y  YOR,  YVO,  YVO 

y  YWP 

t 

YWRy 

YR, 

YP,  YARDP, 

YVARy  YSTR,YV, 

YV  AV 

?. 

YVW , 

YDR, 

YPF,  YVE, 

YVAVE,  YDPF 

COMMON 

ZQD, 

ZPPy 

ZRR  y  ZRP, 

ZWO,  ZVPy  ZVP, 

zo, 

I 

Z  ADDS 

,  ZWAQ,  7  S  TP  , 

ZHy  ZWAWy  Z  A  W  y 

ZWW, 

r> 

ZDS  , 

ZDBy 

ZOE,  ZWF, 

ZWAWE,  ZDSF 

COMMON 

AKPD, 

AKPD, 

AK  OR  y 

AKPQ  y 

AKPAO,  AKP,  AKR,  AKVD, 

1 

AKVQy 

AKWPy 

AKWPy 

AKSTR 

,  AKV,  AKVAV,  AKVW,  AKOR, 

? 

AKSTPF 

COMMON 

AMCDy 

AMPPt 

Amrr  , 

4MRP  y 

AMO  AO ,  AMWDyAMVR,  AMVP, 

1 

AMQ, 

AMAODS 

,  AMAWC 

,  AMSTR,  AMW,  AMWAW ,  AMAW,  AMWW 

7 

AMVVy 

AMDS, 

AMDB, 

AMOE  , 

AMWF ,  AMWAWE,  AMDSF 

COMMON 

ANRD , 

ANPD, 

ANPC, 

ANORy 

ANRAP,  ANVD,  ANWR,  ANWP, 

1 

ANVQy 

ANPy 

ANR  ,  AN  AO  DR, 

ANA VP ,  ANSTR,  ANV,  AN VAV , 

** 

<1 

ANVW  y 

ANORy 

ANRE, 

ANVE, 

ANVAVF,  ANDRE 

COMMON 

IX, 

IY, 

IZ, 

I  X  Y ,  IXZ 

y  IYZ 

COMMON 

CWy 

CB, 

UC  , 

XB,  YP, 

ZB 

C CMMON 

OR, 

DS, 

np. 

RHO,  AL, 

AM 

COMMON 

DRM 

AX,  FTAHI 

,  FTAID, 

All  , 

A  1  ?  y 

AIT 

COMMON 

API 

,  a?; 

2,  A? 

5,  ATI, 

AT?, 

ATT 

COMMON 

XGy 

YC„ 

ZG 

COMMON 

ILOC,  I  PLOT, 

IRON,  T 

OPEN, 

NPLT, 

I  DPT 

COMMON 

Y, 

time. 

.  R1  , 

DELTMA, 

SW  MAX  y  RP, 

nFL  TM  l 

COMMON 

DSF 

y  DRF,  ICYC ,  N< 

IF(NS» 15, 

15,16 

I  5  PETURN 
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16  CONTINUE 

GO  TO I 1001, 1001, 1003, 1004, 1005,1006,100?) ,NS 

C 

C  CONTROL  OS 

c 

1001  IF  I  ISW?  >21,20,21 

20  N1  -  ? 

1  NN2  =  1 

NC2  =  l(TIME*ICYC)/H)  ♦  .5 

NC3  =  (ABSIOS  -DELTMA))*ICYC/ABS(R1*H)  4-.5 
NC5  =  (ABSIDELTMI-OELTMA) )*ICYC/ABS(R2*H)  *.5 
GO  TO  11 

21  GO  TO  11,2,3,4,5,11) ,N1 
C 

C  CYCLES  TO  START 
C 

2  NN2  *  NN2  ♦  1 

IF  (NN?  -  NC2 )  11,11  ,7 

C 

C  OS  TOWN 
C 

7  N1  =  3 
NN3  *  0 

3  NN3  =  NN3  +1 

OS  *  OS  ♦  H*R  1/ICYC 
IFINN3  -  NC 3 )  11, OR, 8 
f 

C  OS  LFVEL 
C 

8  N1  *  4 
GO  TO  11 

4  IF  (ABS(THETA)  -  SW*AX)  11,9,9 

r 

c  ns  up 
c 

9  N1  *  5 
NN5  *  0 

5  NN5  «  NN5  ♦  l 

OS  »  OS  ♦  H*R2/ICYC. 

IF  ( NN5  -NC5)  11,10,10 

C 

C  OS  LFVFL 
C 

10  N1  »  6 
C 

11  IF  INS  -  2)13,1003,1003 
13  CONTINUE 

GO  TO  2000 
C 

C  CONTROL  OR  ♦  AUTOPtlOT 
C 

1003  IF  USW?)  301 , 3C0,  301 
300  ZC  ■  YH2) 

SOOTl  *  0. 
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DOR  =  A8SIDRMAX) 

NC  1  0  =  (  f  T I  MF  *  ICYO/H)  ♦  .5 

NC6  =  .85  *  DOR  *  I C YC / ( . OR 72ft*H )  +.5 

NC7  =  .08  *  HOP  *  I  CYC/  1 .0 1 33ft*  H )  +.5 

NC  8  =  .04  *  DOR  *  ICYC/(.00ft*H)  +  .5 

NC9  =  .03  *  DDR  *  I C  YC / (  . 001  Oft 4*H ) ♦ . 5 

NN1 0=  1 

N  2  =  2 

IFlDRMftX  >313,314,314 

313  R 6  =  -.  08  726 
R  7  =  -.01336 
R8  =  -,00ft 

R9  =  -.001064 
00  TP  380 

314  Rft  =  .03726 
8 7  =  ,0133ft 
PR  =  .006 

R9  =  .001064 
GO  TP  330 

^0  1  00  TP  r  300,  ">02,  ^03,  304,  305, 30ft,  350)  ,N2 

302  NN1 0  -  NNIO  ♦  1 

IF  (NN10-NC1C) 350,350,308 

r 

0  FRP*  o  TP  .35  OF  ORMAX 

r 

303  N?  =  3 
NN6  =  0 

303  NN6  =  NNft  ♦  l 

OR  =  OR  ♦  H*3  ft/  IC  YC 
IF  (NNft  -  NC6 )  350,309,300 
C 

C  FROM  .85  TO  .93  PF  poMAX 

C 

309  N2  =  4 
NN7  =  0 
OC  TP  ’ftO 

30  4  NN  7  =  NM  2  ♦  ] 

OR  *  OP  ♦  H*R 7 / 10  *C 
IF  (NN?  -  NC 7 )  350,310,310 
C 

C  FR QR  .93  Tr>  .q?  OF  prmax 

r 

310  N?  *  5 
NN8  *  0 
r.n  tp  iso 

305  NN8  »  NN*  *  1 

OR  *  0»  ♦  H*RP/?CYC 

IF  ( NN 8  -  NC  8)  350,3’ l f  3J ) 

C 

f  frtm  .97  TO  1,  pr  PR'-Ax 

r 

311  N1  *  ft 
\N9  >  i 
OP  TP  '50 
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306  NN9  =  NN9  ♦  1 

DR  =  OR  ♦  H*R9/ICYC 
IF  I NN9  -  NC9)  350,  312,31? 
f 

C  LEVEL,  ORMAX 
C 

312  N2  *  7 

350  IF(NS-2)2000, 2000, 352 
AUTOPILOT 

352  DSC*. 008*1 ZC-Y( 121) *3. 5*Y( 7)*. 012*1 YC 1 1 *SI N( YI 7 II- Y( 3) *COS t Y (71 ) ) 
U2.*Y(5) 

103  IF  (DSC)  110,107,107 

107  IF  (DSC  -  .436)  101,108,!0R 
110  IF  (DSC  ♦  .436)  109,101,101 

108  DSC  *  .436 
GO  TO  101 

109  DSC  *  -.436 
101  SDOT  *  3  *  (OSC  -OSI 

OS  *  OS  ♦  .5  *  H/ICYC  *  <3.  ♦  SDOT  -  SD0T1 ) 

SD0T1  *  SDOT 
DB  *  -0$ 

351  CONTINUE 
GO  TO  2000 

CONTROL  DS  (IMPULSE),  LONGITUDINAL 

1004  IF  ( I SW 2 1401 , 400, 401 

400  I F ( ICYC-i)411,411,412 

411  N4«0 
NT ST*  1 
NM0D*8 
GO  TO  401 

412  N4*-l 
NTST*3 
NMOO*  32 

401  IF ( N4-NTST ) 403, 402,  403 

402  DS  *  DSF 

403  I F( MOD ( M4, NMOD ) ) 410,406 ,410 

PUNCH  THETA  AND  TIME  FOR  FRFQUFNCY  STUDY  (LONGITUDINAL) 

406  WRITER, 408  )Y(7  ),Y(  13) 

408  FORMAT ( 2615.7) 

410  N4  *  N4  ♦  1 
GO  TO  >000 

CONTROL  OR  (IMPULSE),  LATERAL 

1005  IF  ( I SW2 ) 501 ,500*501 
500  IF f ICYC— 1)511,511,812 
511  N5  «  0 

NTST  *1 
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NM0C=5 
GO  TO  SOI 
si  2  N5=-  1 
NTST=3 
NMOO- 3? 

501  IF( N5-NTST 1503, 602, 503 
SO?  DR  =  DRF 

50  3  I F  F  *0D( NSfNMODl 1510,506,510 

r 

r  PUNf.F  PFI  AND  T  I  MF  FCR  FRFOUFMCY  STUDY!  L  ATFRAL  ) 

r 

506  WRITE ( 2, 408)  Y<  5),  Y( 1 3) 

510  N5  =  N5  +  1 
GO  TO  250 
r 

C  CONTROL  ACCFL/DFCEL  ♦  AUTOPILOT 

r 

1006  I  F  (  IS  *2)601,600,601 

600  N6= 1 

I $W6  =  C 
NN 1  1=  1 

T  L  I  F=  l0.*TIMF+60. 

7 C  =  Y( 1?) 

S  DDT  1  =  0. 

N  C  1  1  "60*  I  iCYC/Hl 
NC  1  2  =  T I MF  *If  YC /H 
IJC  =  0. 

GC  TO  35? 

601  GO  T0(6C2, 603,604, 605,606,607,352) ,  NS 
f 

UC  =  0. 

602  NN  1  1=NNIU1 

IF (NNl 1 -NCI  1 ) 262,  352,605 

r 

60  8  N6=  2 

UC  =  F  .446 
NNl 2=0 

60  3  NN  1 2=NN  12* 1 

IF!NN1?-NC1?) 35?, 262,60? 

r 

605  !F(  ISW61617, 616,617 
617  N6  =  7 

ur  =o , 

GO  TO  35? 

C 

616  NS =2 

(JC  =16.  50 
NNl 2=0 

6)5  NNl 2  =  NNl ?♦ I 

F F ! NN 1 ?-NC  1  25  362,362,61  0 
C 

6  10  IFUSWM61R,615,61« 

615  r.f)  TO  6  05 
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615  N6  =  4 

UC=25, 335 
NN1 2=0 

605  NN12=NN12+1 
IFINN12-NC12) 352, 352,611 

C 

611  I F  (  ISW6)619,614,619 

619  GO  TO  616 
C 

614  N6=5 

UC=  33 • 78 
NN1 2=0 

606  NN1?=NN12*1 

IF ( NN12-NC 12)352,352*612 
C 

612  I F  (  ISW6)620*621,620 

620  GO  TO  615 

C. 

621  N6=fc 
UC=42 . 225 
NN1 2=0 

607  NN12=NN12+ 1 

IF ( NN  1 2-NC 121  352,  35  2,  61  7 
C 

613  ISW6  =  l 
GO  TO  614 

C 

C  CONTROL  NAXINUM  ACCEL  /  DEC  FL  *■  AUTOPILOT 

C 

1007  IFC  ISW?  1701, 700,701 
700  N7= 1 
NN 1 3* 1 

TLIH*60.+2.*TINF 
NC  1  3=  60*  I C  VC  /H 
NC 1 4=T  IMF*  ICYC/H 
SOOT1 =0. 

ZC=  Y (  1?) 
liC  =  0. 

GO  TO  357 

70  1  GO  TOI 7C2, 703, 3521 ,N7 
C 

C  UC=0. 

707  NN  1  3=NN 1 3* 1 

IF  INN! 3-NC13) 357,357,705 
C 

705  N7*  2 

UC  =  4?  .275 
NN1 4*0 

703  NNl4»NN144-t 

IFINN14-NC14 1352,352,706 
C 

706  N7=  3 
UC*0. 

GO  TO  35? 
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2000  RETURN 
ENO 

/♦ 

It 
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CHAM  llfll  -  NOC^OUMI 


9  I*  / 


01.**- 
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JOR  ZC7P0 
EXEC  FFOPTRAN 
DIMENSION  Y  ( 6  ) 

DIMENSION  SAVE ( 300*  8 ) ,  ILOCI  P I •  BUFFI3000) 
REAL  IY 


COMMON  H,Nt I  SI *  NPNT 


COMMON  TLIM, 

RHDL2 1  RH0L3,  RH0L4*  RHDLS,  WMR,  ETA, 

FT AM  1 , 

ISW2 

COMMON 

1 

XOQ,  XUO,  XWO,  XUU,  XWW, 
XOSOSc 

XDSDS,  XDRDR 

,  XWWF  , 

COMMON 

I 

ZQO,  ZWO,  ZQ,  ZAOOS,  ZWAQ,  ZSTR,  7W, 

Z  A  In  ,  ZWW,  ZDS,  7PP,  7QF ,  7WF,  7WAWF, 

7  WAW, 
7DSF 

COMMON 

1 

2 

AMQD,  AMOflO,  AMWD,  AMQ, 
AMWAW,  AMAW,  A  MWW ,  AMOS, 
AMDSF 

A«AQDS,  AM  A WO 
AMDR,  AMOF, 

,  AMSTR,  A  MW 
AMWE,  AMWAWF 

COMMON 

I  Y 

COMMON 

CW,CR,UC,XR,7B 

COMMON 

DS,  DR,  BHP,  AL,  AM 

COMMON 

FTAHI,  FTALO,  All,  Al?, 

Al  3 

COMMnN 

A?  1 ,  A22,  A2R,  A  3 1  ,  A  3  2 , 

A  33 

COMMON 

XG,  7  G 

COMMON 

ILOC,  I PL DT ,  1PIJN,  IPPFN 

,  NPLT , TOPT 

COMMON 

Y 

COMMON  TIMF,  fil,  DEITMA,  SWMAX,  R?,  PEL  TM[  »  PSF,  1CYC,  NS 

I  CYC  -  l 
PI  =  3.141SQR 
l  DPT  =  D 
ICPFN  =  0 
N  =  5 

46  CONTINUE 
CALL  INPUT 
I F ( IPL0TI4R, 50,*R 
4  R  IFMDPFNJ  SOt40fSO 
4<)  CALL  »l  OTS(»UFF,  1  2  ODO  *  71 
IOPEN  *  1 
SO  CONTINUE 
NLOC  *  1  * 

<  =  0 
inuT  =  t 

LlNSPo*SO 
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IINS=90 
I PAGE=1 

WR ITF! IDUT » 24 )I PAGE 
ICNT  =  NPNT 
ICNT2  =  NPLT 

COMPUTE  RHO  *  L  CONST  ANTS 

RHOH  =  RHO  *  .5 
RHOL2  =  RHOH  *  AL  *  At 
RHOL3  *  RHOL2  *  AL 
PH0L4  =  RHOL3  *  At 
RHOL5  =  RH014  *  AL 

WRITE  OUT  HYDRODYNAMIC  COEFFICIENTS 

WRITE! IOUT.l JXCCyZQDy AMQO,XUC,ZWO,AMQAQ,XWQ,ZQyAMWD,XUU, ZAODS, AMO, 
IX  WW, ZW4Q, AMAQOSy XDSD S,  Z  STR  ,  AMAWQ,  XDBDB ,  Z  W,  A  MSTR  ,  XWWF , ZWAW, AMW, 
2XDSDSE  y  Z AWf AMWAWy ZWW, AMAW,Z OS y AMWW, ZDB, AMDS 

1  FORMAT!  1H  ,  *  XQQ  »  ,  TO  t  E 1 2. 5  ,  T44  ,  •  ZOO  •  ♦  T61  ♦  F 1  2  .  5  »  T86 ,  »  MQD  • ,  T9  3  ,  FI  2  .  5  , 

1/1H  ,  »XU0»yT<J,El?.5,T44, 'TWO*,  T51,F12.5,  T  86  ,  '  MQA Q '  ,  T93,  F12.5.7 
?1H  , 'XWQ' ,T9,F12.5,  T44,»7Q',  T51 y  F12.5y  T86,'MWD»,  T93,  F12.5,/ 

’  IH  y  •  XUU*  ,T9,E12.By  T44, '7AQPS' ,T5i,F12.5,TR6,' MQ* ,  T93,  F12.5,/ 

41H  , 'XWW* ,T9,E12.5,  T44 , * ZWAO» ,T5 1 , E 1 2. 5,  T BA, * MAODS • , T93,  E12.5,/ 
5 1 H  ,'XOSDS* ,T9,F12.5,T44,'ZSTR‘ ,T5l , E 1 2 . 5 , T Rfc , • MAWQ • ,  T97,  F12.5,/ 
61 H  ,'X0B0B',T9,E1?.5,T44, 'ZW*,  T51.F12.5,  T86,'MSTR',  TO?,  F12.5,/ 
71H  ,'XWWE' ,T9,F12.5,T44,'ZWAW',T51,F12.5,  T86,'MW',  T93,  F12.5,/ 

81 H  ,«XOS0SE',T9,F12.5,T44, '7AW*,T51 ,F12.5,T86,'MWAW» ,  T93,  E12.5,/ 
9 1 H  ,  T44 ,  *  7  WW*  ,  T51,F12.5,  TR6,'MAW',  T9J,  F12.5,/ 

A 1H  ,  T44 , *  ZD  S '  ,  T51,E12.5,  T86,'MWW',  T93,  F12.5,/ 

PI H  ,  T44,*7DR»,  T51.F12.5,  T86,'MDS»,  TO?,  E12.51 

WR I TE ( I  OUT , 2 1 ZOF , AMDS, 7WF , AMOE, Zw  AW  E, AMW  t, ZDS  E  AMW AWF, AMDS F 

2  FORMAT  (  1H  ,  T44,'ZQF',  T»l,Fl?.5,  >86,*MDD»,  TO?,  F12.5,/ 

1 1 H  ,  T44 , ' 7WF' «  T5’,F12.5,  T86,'MQC.f  T93t  F12.5,/ 

2 1 H  ,  T44,' ZWAWF* ,7*1 ,F12.5,TR6, • MWF • ,  TO?,  F12.5,/ 

31 H  ,  T44, »ZOSE',T51,F12.5,  T 86 , • MWA WE • , T93 ,  F12.6,/ 

A 1 H  ,  T  86 , • MOS  F ' ,  T93,F12.5/Z) 

WRITE!  IOUT,-*  lIYyCWyCByUC  ,XB,ZP,DS,DB,RHO,Al, 

1AM,  All,  A? 1 ,  A  3 1 ,  FTAHI,  ETALO,  A12,  A22.A3?,  XG,  ZG,  A13,  A23, 
2A33,  H 

3  FORMAT ! IH  ,  T 23, • I Y» , T30,F 1 2. 5/ 

1 1 H  ,  'W',  T9,  FI  2 .5  ,T?3  ,  •  R*  ,  T30.F12.S,  T44,'UC',  TSl.Fl’.S, 

2T65,  •  XB'  ,  T72.Fl2.5y  H07,'7R',  TH4.F12.5Z 

31H  ,  T?3,*DS«,  T?C,F12.S,  T44,  ' DR •  ,  T51,  F12.5, 

4Tb5,  'RHO  • ,  T72.F1  2.5.TR6,  't»,  T93.F12.5,  T107,  *M«,  T l 1 4, F 12. 5/ 

51H  ,  'AH',  T«,  F12.5,T?3,  » A  2 1 • , T30 , F 1 2. 5 ,  T  44,  *A?1',T51,  FI?. 5, 

6  T86,'ETAHI',T93,F12.5,T107, ' F T ALO • , T 11 4 , F 1 2 . 5 / 

71 H  ,  ' A  1 2  * ,  TO,  F12. 5,T23, 'A22* ,T70.E12.5,  T44  ,  »A?2»,TSl,  FI’. 5, 
RT65,  '  X  G ' ,  T72.F12.5,  T107.»2f.*,  T114.F12.5Z 

9 1 H  ,  ' A 1 3 ' .  TO,  E12.5.T23, »A?3' ,T?0,F12.5,  744,  »A?3',T5l,  FI’. 5, 

AT  65 ,  'H»,  T72.F12.51 

WRITE!  f  OUT, 4  1  TfMF,  Rl,  DFLTMA,  SW^AX,  R  ?,  "FITM!,  DVF,  ICYC,  NS 

4  FORMAT (IH  , *T!MF',T9,F1?.5,T23,'R1 • ,T30,E1’.5,T44, • DELT ma • , T 5 1 , F  1  2 
1.5,765, 'SWMAX* ,T72, FI ?. 5, TR6, »P 2 • , TO  3  ,F 1 2. 6 , T 1 07 , • DF l T*I • , T 1 1 4 , f 1 2 


non 
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2.5/1H  *  '  DSF  *  »  T9,F12.5,  T44 , • If YC ' , T51  ,  I?  ,  T65,'NS‘,  T7?,l  ?/ ) 

W  R I T  F  (  I  OUT « 5  )  1 9 1  IN 
5  FORMAT I 1H  ,  ‘RUN  NO  *  »  IS/) 

C 

C  COMPUTE  W-8 
C 

WM8=CW-C8 
IS1  =  0 
I SW2  =  0 

*9  CALL  INTFG(Y) 

SAVE  VALUES  FOR  PLOTS  IF  I»LOT  =  1 

IF  <  IPLOT  >9,12,0 
9  CONTINUE 

C  IF  ARPAY  FIJLL  DCNT  OVFRUN 

r 

I  F  (  K-  300 )  5?,  12,12 
68  CONTIN'IF 

IF( NPLT-ICNT2I  5?, 52, SI 
52  TCNT?  =  0 
K  =  K  4-  1 
C  SAVE  TIMC 

SAVEIK, 1)  ■*  Y|6) 

C  SAVE  U 

SAVEIK,?}  =  Y I  1 ) 

C  SAVF  W 

SAVEIK, 8)  ^  Y { 2 ) 

C  SAVE  0 

SAVE  (  K  ,4  )  ■*  Y(8) 
r  SAVF  THFTA 

SAVEIK, 51  =  Y(4) 

r  SAVE  l 

SAVF(K,M  =  YIS) 
r  SAVF  DS 

SAVEIK, 7)  =  ns 

r  savf  r>8 

SAVF  U,«)  =  DP 
5 1  I C NT?  =  IC  NT?  4  1 

1 2  continue 

IF INPNT-ICNT  )  15,15,17 
16  IC  NT  *  0 

IFIL  INSOP-!  INS) ?0, 20, 7n 
M  LINSrO 

I PAGF  » I PAGr ♦ 1 
WRITFI  IO||T  ,  ’A  )  I  PAGE 

?4  FORMAT  UHl  ,7X,  •  7C790*  ,?ox,  •  SM8MAR  INF  SIMULATION,  |  nwf,  I  TUOI  NAL  FPFP 
innM*,45Y,'0AGF*  ,  15//) 

WRITFI  I  OUT,?*) 

2  5  FrRMATUH  ,9X  ,  *  U •  ,  1 5 X  ,  » W*  ,  1  6X  ,  •  Q»  ,  1  4 X  ,  •  TMCT  A»  ,  1  4X,  •  7  »  .  I  57 1  »  T  •  » 

TO  CONTINUE 

7?  WRITFI I OUT , TO )  IYI I), I=’,5) 

10  FORMAT!  lH0»M2X, El  8.5, ?X1) 
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» 


74  CONTINUE 
L I  NS=L I NS  +  2 
17  ICNT  =  tCNT  ♦  1 

IF(ABS(Y(6)-TLIM)-H)35,69,69 
35  CONTINUE 

IFUPLOT1  40,46,40 

40  CALL  PlTROU(SAVE,K,ILOC,NLnC, IRUN) 
GO  TO  46 
END 
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C 


c 

c 

c 

r 


C 

r 

c 

r 

c 

r 

r 

r 

r 


SUBROUTINE  INPUT 

DIMENSION  Y(6I,  ILOC(B),  YHOLDI  ft  I ,  COM(2iQ) 
EQUIVALENCE  (f.n«!l),HI 
REAL  IY 


COMMON  H,  N,  I  SI  ,  NPNT 

COMMON  TL I M  t  RHOL? ,  RH0L3,  RHDL4,  RHOL5,  WMR,  ETA,  FT  AM  l ,  ISW2 

COMMON  XQQ,  XUD,  XWQ,  XUU*  XWW,  XDSOS,  XOBDB  ,  XWWE  , 

1  XDSDSE 

COMMON  ZOO,  ZWD,  7Q,  7AQDS,  ZWAQ,  ZSTR,  7W,  7  WAW, 


COMMON 

Z A W ,  ZWW,  ZDS,  ZDB 

AMQD,  AMQAQ,  AMWD, 

COMMON 

AMWAW,  AMAW,  AMWW, 
AMDSF 

IY 

COMMON 

CW,  CR,  !IC,  XR ,  ZB 

COMMON 

QSt  DR,  RMn,  AL,  A 

COMMON 

ETAHI,  ETALO,  All, 

COMMON 

A 2 1 ,  A?2,  A?3,  A 31 

COMMON 

XG,  7G 

COMMON 

ILOC,  IPLOT,  IRON, 

COMMON 

Y 

COMMON  TIME, 

R1  ,  TFLTMA,  SWMAX , 

ZOE,  ZWF,  ZWAWP,  70SF 

AMO,  amaqds,  amawo,  amstr,  AMW, 

AMOS,  AMDR,  AMQE,  AMWF,  AMW AWE , 


Al?»  AIR 
,  A3?,  A3"* 

I  OPE  N  ,  NPL  T , I  OPT 

R  ?,  OFLTMI,  OSF,  TCYC,  NS 


IN  =1 

I E ( I  OPT ) 1 50  ,S  ,  l  SO 
5  CONTINUE 

READ  I  IN, SO  I  NPNT,  IPLOT,  fRUN,  NPL  T ,  IOPT,  NS 
I  E (  IP  UNI  70, fO, TO 
SO  I E ( IOPENI  A?, 64, 6? 

6?  CALL  PIOTCS.O.O.O.ORRI 
64  CONTINUE 
CALL  EXIT 
70  CONTINUE 

READ!  IN, SOI  (Iircm  ,  I  ’  1  ,«> 

SO  EOBMAT ( 1 61 S ) 

PEADItNtlOOl TO, HO, TL IM 
H  »  HO 

107  FORMAT ISF10. SI 

*E*R|fN»10«)fV(  1 1,  l»l,S| 

Y I  6 1  *  TO 
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C 


c 


c 

c 

c 

c 


c 

c 

c 

r 

c 

c 


r: 

c 

r 


r. 

c 

c 


r 

r 

r 


REAO(IN,100) 

xoc,  xuo,  xwo 

,  xuu,  xww,  xosns 

,  XDROR 

,  XWW  F , 

1  XOSOSE 

READ! I N, 100) 

ZQD ,  zwn,  zo. 

ZAOPS,  ZWAQ,  ZSTR ,  ZW, 

ZW  AW, 

1 

ZAW,  ZWW,  Z0S 

,  ZDB ,  ZOE,  ZWE, 

ZWAWE, 

ZDSE 

READ! IN, 1001 

AMQD, 

AMQAO, 

AMWO,  AMQ,  AMAOOS 

,  amawq,  amstr,  amw 

1 

AMWAW, 

AMAW, 

AMWW,  AMOS,  A  MOB , 

A  MQE  , 

AMWE,  AMWAWE 

2 

AMDSE 

READ! IN, 100  1 

n 

READI IN, 100) 

CW,  CR 

;  UC,  XR,  7P 

READ (I N , 100) 

OS,  PR 

,  RHO, 

AL,  AM 

R  E AD ( I N , 1 00 1 

ETAHI, 

ETALO, 

All,  A12,  AIR 

READ(IN,100)  A?lt  A22,  A?R,  AM,  A32,  AM 
RFADIIN,100)  XG,  7G 

RFAO  (  IN,  1  00  )  TIMF,  Rl,  narMA,  SWMAX,  R2,  OFL  TM  f  t  osF 

SAVE  INITIAL  CONDITIONS  FQR  POSSIBLE  RE  Tnop 

HO  110  1=1,6 
YHOLDI t)=  Y( I) 

110  CONTINUE 

SAVE  CS.OB  FOR  POSSIBLE  RESTORE 

dshclo  =  ns 

PBHOL  0  =  OR 
RETURN 
150  CONTINUE 

RESTORE  INITIAL  VALUES 

00  152  1*1,6 
YC  I  1  *  YHOLfMl  ) 

15?  TQNTINUF 

RESTORE  INITIAl  OS,OR,H 

ns  *  OSHILO 

OR  *  ORMOLH 

M  *  MU 

RFACHN.165)  fPUN 
IEIIRIJN)  155,05,165 

165  CONTINUE 

160  R  E  AC  (  I  N  ,  1  66  )  Nnr<,  V  ALlir 

166  FORMAT*  I6,5X,F1C.6» 

)  i* 
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IF<NDEX)1B0, 170,1*0 
1 7 C  RETURN 

IRQ  COM  INDEX )  -  VALUE 
GO  TO  160 
END 
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SUBROUTINE  INTFG ( Y) 

DIMENSION  Y  ( 1  ),  F<5),  Fl<  5) 

COMMON  H,  N,  IS1 
IF! ISlIIOr 10,30 
10  Ms  N  ♦  1 

no  20  I  =  1  ,N 

FID  =  0. 

20  FI  (  I)  =  0. 

IS1  =  1 
RETURN 

30  CALL  EVAL1 (YtF) 

DO  AO  I  *  1  *  N 

Y  (  I  )  =  YU)  ♦  ,*>*H*(  3„*F(  I  )-F1(  I)) 

Fill)  =  F(  I) 

AO  CONTINUE 

Y(  M )  ■=  Y(M)+H 

RETURN 

END 


O  O 
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C 

c 

c 

r. 

c 

r 

r. 

r 

c 

c 

c 


SUBROUTINE  EVAL 1 ( Y  I , F  I 
Dl MENSION  YI  (1 ) ,F(1 I 
REAL  IY 

COMMON  H,  Nf  I  SI ,  NPNT 


COMMON  TLIM,  RHOL?,  RHOL 3,  RH0L4,  RHOLS,  WMB,  FTA,  FTAM1,  ISW? 


COMMON 

I 


XQQ,  XUO,  XWQ,  XUU,  X WW t  XDSDS, 
XOSOSE 


XDBDR ,  XWWFt 


COMMON 

I 


ZQO,  Z WO,  ZO,  ZAODSt  ZWAQt  ZSTR,  ?W,  7 WAW, 
ZAW,  ZWW,  70S,  ZDB,  7QE  ,  ZWF,  7WAWF,  ZOSF 


COMMON 

1 

2 


AMc,-%  AMQ  AQ  ,  AMW0»  AMO*  AMAQOS  ,  AMAWOt  A^STR,  A  MW* 
AMWAW,  AMAW*  AMWW,  AMDS,  AMDS*  A  MQF  *  AMWF*  AMWAWF, 

A  UDC  P  " 


COMMON 

IY 

COMMON 

cwf  CB,  UC,  XB,  7P 

COMMON 

OS,  OB,  RHP,  AL,  AM 

COMMON 

FTAHI,  FTAl.0,  All,  A1?, 

A13 

COMMON 

A  2 1 ,  A22,  A23,  A31  ,  A32, 

A33 

COMMON 

XG,  7G 

PULL  PRESENT  VALUES  PF  VARIABLES  OUT  OF  ARRAY  V! 

•I  *  V  H  1 ) 

W  *  YU?) 

0  *  YII II 
THETA-YII4) 
l  -  YI I  5  I 
CAIl  CONTI!  (  THF  T  A ) 

CO-PUTE  QUANTITIES  TP  RE  USED  ’ORE  THAN  ONCF 

02  «  0*0 

U?  »  U*U 

W 2  *  W*W 

DS2  «  OS*f)S 

DS2U?  *  DS2*U2 

WQ  *  W*0 

RCOTVW»SORT(W?I 

U0«U*0 

AB$Q*4BSt  0 I 

UAQOS»<l*Af|SO*OS 

w«Tvw«w*»nnTvw 

UW*U*M 


non 
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ABSW*ARS ( W I 
UABSW*U*ABSW 
DBU2*0B*U? 

OSU2=DS*U2 
UMAG  =  SQRTIU2+W?) 
IFIUMAG)26f?4f?6 
?4  FTA  =  ?0. 

GO  TO  ?8 
26  CONTINUE 

ETA  =  UC/'JMAG 
28  ET AMI  =  ETA-1. 

I F ( ET  A-ET  AHl 132,30,30 
30  A 1*A  1 1 
A2- A1 2 
A3= A1 3 
GO  TO  38 

32  IF(ETA-FTAlO)35,35,37 
35  A1=A31 
A  2- A3? 

A3* A33 
GO  TO  38 

37  A  1= A?1 
A2*A2? 

A  3*A2  3 

38  CONTINUE 
1  RATVAV  *  0. 

3  IF(H)  %4,5 

4  RATWAW  =  0. 

GO  TO  6 

5  RATWAW  =  W/ARSW 
4  CONTINUE 

COMPUTE  TRIG  FUNCTIONS 

SPHI=o. 

C  PHI  =  l . 

STT  A  =  SINtTHETAI 
CTT  A  =  COSITHETAI 
SPSI=0. 

CPSI*I  . 

TRIG1=0. 

TR  IG?  =  <"  TTA 
T  R I C7  =  0  . 

TR1G*=STTA 
TRIGS  *  IJ*C T TA 
IF!  ISW? )?0, 10,?0 
10  ! SW?  =  1 

C  SET  CO£FF  IC  IENTS  OF  tlQ,  WO,  00 

r 

fau  =  am-phoi  ’•T  in 

f AQ  =  A  ***  7 G 

r nw  *  am-rmpl  3*;wo 

r  no  =  -RM0L**7C0-  a**xg 
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PMU  =  AM*?0 

PMW  =  -RH0L4*AMWD-AM*XG 

PMQ  *  I Y-RHOl B* AMQD 

f. 

20  CONTINUF 

r 

r  COMPUTE  UO  FROM  AXIAL  FORCE  EON 
C 

40  CONTINUE 

F( 1 )=( ( AM*(-WQ>  ♦  RH0L4*(XQ0*02)  ♦ 

1 PH0L3*  (  XWQ*WQ)+RH0L?*(XUU*U2+XWW*W*WM- 
2RHOL2*U2*  ( +  XDSO$*DS  ?«,XDBDB*DB* OR )  * 

3RHOL2*( A1*U?«-A2*U*UC  +  A3*UC*UC)-WMR*STTA«-  RHOL 2* I XWWE*W?+ 
4XDS0SE*DS2U?I*FTAM1 )  +  AM*XG*Q? 

5-FAC*  Fmi/FAU 

r 

C  COMPUTE  WO  FROM  NORMAL  FORCE  EON 
C 

40  CONTINUE 

F(2)-(AM*U0  +  RHOL  3*  t 

1  ZQ*UO  +ZAQ0S*  UAQOS  ♦  /WAv’*  R ATWAW*RQOTVW*ABSO )  ♦ 

2RHOL2  *fZSTR*U2  *  ZW*UW+ZWAW  *  WRTVW  ♦ZAW*UABSW+ZWW* AB$W*ROOTVW 

3  +ZCS*0SU2+ZDB*0BU? )  ♦  WMB  «  TRIG?  +  RHOL  3*  ZQF*UQ*  FTAM1 
4*RHOL2*IZWP*UW+7WAWF*WRTVW<-ZDSE*OSU?  )*ET  AMI 

5  +AM*ZG*Q2-FNQ*F  (  R  )  )  /FNW 
C 

C  COMPUTE  QO  FROM  PITCHING  MOMENT  EON 

C 

RO  CONTINUE 

F(3)=(RHCLS*1AMCAQ*Q*ABSQ)  ♦  RHOL4* ( AMQ*UO  ♦AMAODR* 

1 IJ AO DS  +AMAWO  *g*ROOTVWl+  RHOL 3* ( AMSTR ♦U?* AMW+UW+ AMWAW*WRTV W  ♦ 
2AMAW*  UABSW  4-AMWW*ARSW*RQOTVW  +  AMOS*DSU2+AMnB*OBU2I 
3-  (  XG*CW-XB*CPI  *  TRIG?- (  Zr,*CW-?B*CB)*STTA+RHOL4*AMQEi-U0*ET  AMI 
4*RH0L3*( AMWF*UW+AMWAWE*WRTVW+AMOSF*nSU? )*ETAMI 
*>  ♦AM*(7G»(-WC)  +  XG*I-tJ0n 

4  -PMu*cm-PMw*F(?n /pmq 

c 

C  COMPUTE  KINEMATICS  -  THETA  DOT 
C 

F  ( 4  )  =  Q 
C 

C  COMPUTE  Z  HOT 
C 

F  (■>  I*-U*STTA4W*T9IG? 

RETURN 

END 
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SUBROUTINE  PLTRDUI SAVE , K, I LOC ,NLOC , !RUN ) 
DIMENSION  SAVEI300,  lltILOCm,  IY(16),  IR(?) 
I Rft)=!HEX(13,9,14,4, 13,5,4,01 
IR( 2) =IMFX( 13,5,13,6,4,11,4,0) 

r  T 

I Y  f 1 >  =  IHEX(14,3,4,0,4,0,4,0) 

c  u 

IY ( 2 )  = IHEX( 14,4,4,0,4,0,4,0) 

r,  w 

IY( 3 )  =  I  HEX (14, 6, 4, 0,4, 0,4,0) 

C  Q 

IY(4)=THEX (1 3,8,4, 0,4, 0,4,0) 

C  THTA 

IY { 5 )=IHEX (14,3,12, 8, 14,3,12,1) 

C  Z 

I  Y  (  6 )  = I  HE  X (  14, 4, A, 0,4, 0,4,0 

C  DS 

I Y (  7l=IHEX(l?,4,14,2,4,0,4,0) 

C.  08 

I Y (  8  )  =  IHEX (  12,4,12,2,4,0,4,0 

niv  =  ?o. 

CALL  SC  ALE (SAVE (1,1) , ' . 0,K, 1 ,P  IV, 1 ) 

I CT  L=0 

CALL  PLCT (0.0, .75,23) 

nn  80  I  =  I »  nloc 

J= I LOC ( I  ) 

IF(J)  30,90,30 
30  CONTINUE 

CALL  SCALE(SAVE(1,J),4.0,K, 1,0 IV, 2) 

CALL  AXIS(0.0,0.0,IY«1 ) ,-4,6.0,0.0, D!V, 1) 
CALL  AXIS(0.0,0.0,IY(J  ) , 4, 4. 0 , 90. 0 ,0 1 V , 2 ) 
CALL  $YMROL(4.0,3.5,0.14, IR,0.0,*> 

AIRUN  =  I  RUN 

CALL  NUMBER  (-0. 0, -0.0* -0.0,  A  IRUN,0.  0,-1  ) 

CALL  I INE(SAVE(l,l),SAVE(l,J),K, 1,0,0) 

IF(  ICTL) 60,50,60 
50  CALL  PLOT  (0.0,4,50,-23) 

I CT  L  =  1 
GO  TO  80 

60  CALL  PL0T(R.S-4.87,-?3) 

!CTL=0 
80  CONTINUE 

90  IF  (  ICTL  mo,  100,110 
100  call  PLOT(0.0, -.75,23) 

RETURN 

110  CALL  PI  OT  I  A.  5, -5.75,23) 

RETURN 

END 
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SUBROUTINE  CONTR  (THFT  4  ) 
f 

C  TO  CONTROL  OS  FOR  DYNAMIC  CONDITIONS 

f 

DIMENSION  I L CC  (  8 )  *  Y(M 
REAL  IY 
REAL  K 
C 

COMMON  H,  N,  ISIf  NPNT 
C 

COMMON  TLIM,  RHOL2,  RHCL3,  RH0L4,  R HOLS «  WMB,  ETAt  FT AM  1  f  ISW2 
C 

COMMON  XQO,  XUD,  XWQ,  XUU,  XWW,  XDSOS,  XDBDB  ,  XWME  ♦ 

1  XDSOS* 

C 

COMMON  7  QD,  ZWO,  70,  ZAQOS,  7WAQ,  ZSTR,  ZW,  ZWAW, 

1  Z AW,  ZWW,  7DS  *  ZDP »  ZOE,  7WF,  ZWAWF,  7DSF 

C 

COMMON  AMQPf  AMQAQ,  AMWO,  AMQ  *  AMAQOS,  A  MA WO ,  AMSTR,  A  MW* 

1  AMWAWt  AMAW,  AMWW,  AMPS,  AMDB ,  A»OE,  AMWFt  AMWAWE, 

?  AMOSE 

C 
C 

COMMON  IY 

C 

COMMON  CW,  CB,  UC,  XBf  ZP 

C 

COMMON  DS,  OB,  RHO,  AL,  AM 

C. 

COMMON  ETAHl,  FTALO,  All,  A12,  A13 

C 

COMMON  A  2 1 ,  A?  2 ,  A23,  A31,  A32,  A3  3 

C 

COMMON  XG,  ZG 
C 

COMMON  ILOC,  I DL  P  T ,  JPUN,  [OPEN,  NPL  T ,  IPPT 

f 

COMMON  Y,  TIME,  PI,  DELTMA,  SW^AX,  Q?,  OELTM  I 

C. 

common  osf,  icyc,  ns 

IFINS1  IS, IS, 14 
1 S  PETURN 
t*  CONTINUE 

GO  TOI 1001, 1002, 1003,1004) ,NS 
C 

C  CONTROL  OS 
C 

1001  I F  f  ISW?  |?1, 20, 21 
20  N1  *  ■> 
i  NN2  «  l 

NC?  *  t(  TIME*  ICYC,  l/H)  ♦  .  S 

NC  3  «  (ARSirS  -DELTMA) )  •  I  CYC/ APS ( R t MH )  ♦.S 

NC  5  =  UBSITELTMI-OELTMA)  )*ICYC/ABS!P2*H) 

GO  TO  11 


£05 
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21  GO  TP  11,2,3,4, 5,11) ,N1 
C 

C  CYCLES  TO  START 
C 

?  NN2  =  NN?  1 

IF  (NN?  -  NC2)  11,11,7 
f 

c  ns  down 
r 

7  N 1  =  3 
NN3  =  0 

3  NN3  =  NN3  ♦] 

DS  =  OS  ♦  H*R1/ICYC 
I F  (  NN3  -  NC3)  11,08,8 
C 

C  DS  LEVEL 
C 

8  N1  =  4 
GO  TO  11 

4  IF  (ABSITHFTA)  -  SWMAX)  11,9,9 
C 

r  ns  up 
c 

9  N1  ■  5 
NN5  *  C 

5  NN5  =  NN5  ♦  1 

DS  =  ds  ♦  H*R?/iryr 
IF  (NNS  -NCf)  11,10,10 
C 

C  DS  level 

c 

10  N1  =  6 

11  CONTINUE 
GO  TO  ?000 

c 

C  AUTCPILCT 
C 

3S2  CSC*.008*(  7C-Y  ( *> )  )  *3  •  S4Yf  4|*,012*(Y(  11*SIN(Y(4M-v(?1*rnS(Y(4m 
1  +  ?.*Y(3> 

103  IF  (OSC)  110,107,10^ 

107  IF  (PSC  -  .4361  101,100.108 
110  IF  (DSC  ♦  .436)  100,101,101 

108  DSC  «  .  4 "*6 
GC  TO  101 

109  DSC.  «  -.436 

101  SOOT  «  3  ♦  (DSC  -OS) 

OS  *  OS  ♦  .*>  •  H/ICYC  *  (7.  *  *  DOT  -  S  DOT  1  1 
SD0T1  *  SOOT 

or  «  -ns 

3S1  CONTINUE 

ro  Tr  •non 


r  rONTBOl  ns  UMOIIISF),  LONGTTljniNAI 

r 


o  r>  o  non 
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100?  IF  (ISW2)401,400,401 

400  N4  =  0 

401  IF  IN4-1)403,402,403 

402  OS  =  OSF 

403  IF!M0D(N4»  811410,406,410 

PUNCH  THETA  AND  TIME  FOR  FRFQUENCY  STUDY  (LONGITUDINAL ) 

406  WRITE!?, 408 ) Y ! 4  ) , Y ! 6 1 
408  FORMA  T ( 2E 1 8 , 7 1 
410  N4  =  N4  +  1 
GO  TO  ?000 

CONTROL  ACCEL /OECFt  ♦  AUTOPILOT 

1003  IF! ISW?»601  ,600,601 

600  N6= 1 
ISW6=0 
NN1 1 =1 

TLIM=  10.*TIMF  +  (S0. 

ZC  =  Y!  8) 

S0OT1  =  0. 

NC11=60*( ICYC/H) 

NC12=TIME*ICYC/H 

UC=0. 

GO  TO  -»82 

601  GO  T0!602, 603, 604, 608, 606,607,38? ),N6 

r 

IJC  =  0. 

602  NN1 1 =NN1 1+1 

I  F  (  NISJl  1-NC  1 1  *  382 , 352 , 608 

r 

608  N6=? 

UC  =  8 . 4  '♦  8 
NN 1 2=0 

603  NN1 2  =  NN1 2  *1 

IF!  NN12-NC  121  382, 38  2,60^ 

C 

606  IF ( ISW6 1617,616,617 

617  N6=  7 
UC  =  C. 

GO  TO  35? 

r 

616  N6*  3 

UC«16.3q 
NN1 2=0 

604  NN 1 ?»NN 1 ?♦ 1 

I F ( KN1 ? -NC 12)3^2, 16?, 610 

r 

610  IF! ISW6|fl«,6lS61« 

618  GO  TO  408 


61 5  N6=  4 

UC=?4#3-»4 
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NN 1 2-0 

605  NN12=NN12+1 

I F  ( NN1 2-NC1 2 I  35 2, 352, 611 

611  IF(  ISW6)61<?,614,610 
61 R  GO  TO  616 

614  N6=5 

UC*33. 7R 
NN1  2*0 

606  NN12=NN12+1 

IF (NN12-NC12I352,352,612 

612  IF(ISW6)620,621,620 

620  GO  TO  615 

621  N6=6 
UC=42. 225 
NN1  2=0 

607  NN1 2=NN1 2*1 

IF (NN1?-NC12)35?,?52,613 

613  ISW6  =  1 
GO  TO  614 

CONTROL  MAXIMUM  ACCFL/DFCFl  ♦  AUTOPILOT 

1004  I F ( ISW2I701, 700,701 

700  N7=s  1 
NN1 3=1 

TL IM=  60 . *7 . *T I MF 
NC13=40*ICYC/H 
NC14  =  TIME*IC  YC/H 
SOOT  1=0. 

ZC=Y(  M 
UC*0. 

GO  TO  ^5? 

701  GO  TO(702,703,35?1,N7 
C 

C  UC*0, 

702  NN1 3*NNl 3* 1 

IFINN1 3-NC  131 352,352,705 
C 

70S  N7«? 

Uf  *42.  ”6 
NN1 4*0 

70 3  NN14*NM4M 

I F ( NN 1 4-NC 141352,352,706 
f 

704  N  7*  2 
Ilf.*  C. 

TO  TO  35? 

’000  RFHJPN 


OWtl/6* 

CHIP?  flftf  -  MOC  FOUSTS 
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//  JOB  EC470 

//  EXEC  FFORTRAN 

C 

C  IN  THE  MANNER  OF  NEWTON 
C 

CONV  *  57.29578 
IN*l 
IOUT*3 
L INSPP*54 

3  CONTINUE 

READ! IN* 100)  ZWAW,  ZWW,  ZW*  Z  AW,  7STR  *  ZOEl 
IF ( ZWAW-999. I  5, 4, 4 

4  CALL  EXIT 

5  CONTINUE 

READ! IN, 100  1  AMWAW,AMWW,  AMW,  AMAW,  AMSTR,  AMDEL 
RE AO! I N» 1 00 1  B,  ZB,  RHO,  AL 
2  CONTINUE 

REAO( IN, 100  I  U,  WZERO  ,ULI« 

IF! WZER0)9,3,9 
9  CONTINUE 

WRITE! I OUT, 60) 

WRITE! IOUT, 252) ZWAW, ZWW, ZW , Z AW, ZSTR , ZDEL 
WRITE! TOUT, 61) 

WRITE (IOUT, 252 ) AMWAW,AMWW, AMW, AM AW, AMSTR, AMDEL 
WRITE! IOUT, 62) 

WRITE!  IOUT,  252)  B,  ZB,  RHO,  AL 

60  FORMAT !1HI»50X,* EC470  -  INITIAL  CONDITIONS*// 

11H  ,3X,'ZWAW* ,14X,*ZWW*  ,  1 1  X  ,  *  ZW*  ,  14X  ,  •  Z AW*  ,  1 2  X ,  •  ZSTR  • ,  1  3X  , 

2* ZOEL*  ) 

61  FORMAT !IH  ,3X,'MWAW* , 14X , • MWW* , l IX , • MW* , 14X , • MAW ' , l 2 X, • M STR • , 13X , 
2* MOEl  •  ) 

62  FORMAT ! 1H  , ?X , • B • , 17X, • ZB ' , l ?X, *RHO • , 13 X, • L • ) 

WRITE! TOUT, 215) 

L  !  NS  =  9 

100  FORMAT  ! B F10  •  *» ) 

8  CONTINUE 
ICNT  *  0 
WWK«W7ER0 
U2*U*U 

R  *  ZOEL/AMDFl 
Cl*  ZWAW-R4 AMW AW 
C2*  ZWW-R*AMWW 
C3«  <?W  -R*AMW)*U 
C 4 »  ! 7  AW~R*AMAW ) *U 
C6*  !ZSTR-R*AMSTR)*U’ 

C0EF«2.*B*ZB/!RH0*AL*AL*AL ) 

C  6  *  -R*f  OFF 
10  CONTINUE 

ICNT  *  ICNT  ♦  1 

IF!  ICNT  -  200)  15,  15,12 

12  WRITE! I  OUT ,13) 

13  FORMAT ! I H  ,  ’ITERATIONS  EXCFFD  200*1 
r,0  TO  2 

15  CONTINUE 
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ABSW=AB  S! WWK ) 

W2*WWK*WWK 
WABSW-WWK*ABSW 
ABSWU=ABSW*U 
WU=WWK*U 
T1  =  W2+U? 

ROOT  =  SORT f  T 1 ) 

T  2= COE F* WWK /ROOT 

F  =  Cl*WA8SW*C2*W2+C3*WWK*r4*ABSW  +C5«-C6*WWK /ROOT 
I F ( WWK ) 20, 1 8, 30 

1 8  WRITE! I OUT » 1°  ) 

19  FORMAT! 1H  ,  *W  IS  ZERO’  ) 

GO  TO  ? 

20  S=-l  . 

GO  TO  40 
30  $=  1. 

40  CONTINUE 

FP  =2.  *S*C  1*WWK  ♦2*C2*WWK+C3*S*C4*C6*U2  / !  ROOT *T  l ) 

WS  =  WWK-  F/FP 

I F  <  ABS ( WWK-WS ) -.0001*ABS!WWK 1  1200,200,150 
150  WWK  *  WS 
GO  TO  10 
200  CONTINUE 

DS=-I  AMWAW*WABSW+AMWW*W?-»-AMW*WU+AMAW*ABSWU* 

1  AMSTR*U2+T?  1/ ( AM  DEI *U2 J 
IF  (UNSPP-LINS1  210,210,250 

210  WRIT*!  IOUT  ,211) 

211  FORMAT ( 1  HI  ) 

WR I TF l T  OUT ,2151 

215  FORMAT  1 / IH  , 3X, • U( FT /SEC  1  * , QX , • U( KT$ } • , 8X , • W( F T/SE C 1 • ,7 X , 

1  *  DEL (RADI' ,7X, *  THETA! RAO) • ,7X , • OFL ! OEG » • , 7X, » THET A { OFG  )  • /  ) 
L  I N  S=  0 

250  L INS=L INS+1 
UKTS*U/l.6R9 
THT  A  =  ATAN! WS/U) 

OSl =DS*CONV 
THTAO  =  THTA*CONV 

WRITE!  IOUT  ,252HI,UKT$,WS,OS  ,  THT  A, OSl  ,THTAO 
252  FORMAT  1 1H  , F l 3 .6, 6F16 .4 ) 

WZFRO  =  WS 
U  *  U  -  1 .489 
IFtU-UUK*  2,R,H 
240  GO  TO  2 
END 

/♦ 

/e 
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//  JOB  EC430 

//  EXEC  FFORTRAN 

D I  MENS  ION  ICTL<50),  W(50),  X(50),  YC50I,  ?<50),  INTS150) 

IN  =  1 

IOUT  »  3 

LINSPP  =  54 

LINS  =  99 

IPAGE  =  1 

RFAOI I N,95 )  N,  IPNT 
DO  90  I  =  1*  N 
I  NTS (  I  I  =  I 
90  CONTINUE 

95  FORMAT (1615) 

READ!  I N, 100  )  (W(I),  XII),  YII),  ZU),  I  =  !,N) 

I F ( IPNT)  96,  99,96 

96  WRITE!  IOUT , 1°0 )  IPAGE 
IPAGE  *  IPAGE+1 

WR I TE ( I  OUT ,97) 

97  FORMAT ( 1H  , RX, ' N * , 10X, ' W • , 1 5X , • X* , 15X , * Y' , 15X , • Z • / ) 

WRITE (I  OUT, 98)  ( I  NTS (I) ,W H  > ,X !  I ) ,Y (I  ) , Z (I  ) ,  I* 1 , N > 

98  FORMAT! 1H  , I  9, 1 X,4F 16. 6) 

99  CONTINUE 

100  FORMAT ! 8F1 0. 5) 

105  REAO! IN, 110) ( ICTL! I  1 , 1  =  1, N) 

110  FORMAT (8011  ) 

IF! ICTL! 1 ) -2 ) 1 30, 1 20, 1 20 
120  CALL  FXIT 
130  CONTINUE 
SW  =  0. 

SWX  =  0. 

SW Y  =  0. 

SWZ  =  0. 

DO  170  I  =  1 ,  N 
IF! ICTL ( 1 1  ) 160 ,170,1 60 
160  TW  =  W( I  ) 

SW  =  SW  ♦  TW 

SWX  =  SWX  ♦  TW  *  X ( I ) 

SWY  =  SWY  ♦  TW  *  Y(I) 

SWZ  =  SWZ  ♦  TW  *  Z( I  ) 

170  CONTINUE 

XG  =  SWX/SW 
YG  =  SWY/SW 
ZG  =  SWZ /SW 

IF (L INSPP-L INS) 180, 180, ?00 
180  WRITE! IOUT, 190)  IPAGE 

190  FORMAT! 1HI,3X,«EC430' ,40X, 'COMPUTED  CFNTFR  OF  GRAVITY', 
l  30X, ' PAGE' , 15/  ) 

LINS  =  ? 

IPAGE  *  IPAGE  *  1 

200  WRITE! IOUT , 210 ) ( INTS ( I ), I*l,N) 

210  FORMAT! IH  ,913,2414) 

WRITE!  IOUT,  21 OM  ICTL  (I),I«  I,  N) 

WRITE! I  OUT ,2201  XG,  YG,  ZG*  SW 
220  FORMAT!  /1H  ,  8X,  •  XG*  ,  14X,  •  YC,' ,  14X  ,  •  ZG*  ,  14X  ,  •  W*  / 
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11H  ,4616.6/) 
LINS  =  LINS  ♦  6 
GO  TO  105 
END 
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//  JOB  ZC  300 

//  EX RC  FFORTRAN 

C  SUBMARINE  THRUST 

DIMENSION  THRUST! 10) 

READI1  » 30 )AL, AM, ETAHI , FTALO 
READU  ,40)A1  ,A2,A3 
READ! i»40)Rl»B2,R3 
REA0(1»4O)C1»C2,C3 
BO  FORMAT ( 8F10» 3) 

40  FORMAT (BF10. 6) 

WRITE (3,36) 

36  FORMAT! 1H1»5X,23H7C300,  SUBMARINE  THRUST//T6, H • ,T1A, 'M* ,T24, 'FT AH 
21 ' ,T34, ‘ETALO*  ) 

WRITE (3,41 ) Al,AM,FTAHI , FT  AID 

41  FORMAT(F9.?,F11.?,2F10.3) 

WR  ITF(3,42  ) 

42  FORMAT < 1H0«T10*  •  Al • ,T20, • A2 »  ,T30, • A3» ) 

WRITE!  3, 43  )A  1,  A?,  A3 

43  FORMAT(5X,3F10.6) 

WRITE! 3,44) 

44  FORMAT ( 1H0,T10, • B1 • » T20, • B2 • , T30, • R  3  * ) 

WRI TE ( 3 ,43 ) B1 ,B2,R3 

WRITE! 3,45) 

45  FORMAT (1H0,T 10, • C 1 ' , T 20, 'C 2 • , T 30, »C 3 • ) 

WRITE(3,43)C1,C2,C3 

J*1 

CO  25  K  =  1 
WRITE! 3,26) 

36  FORMAT!  IH1  ) 

IF! J)32,33,33 

32  WR  I  TE  (  3 , 34) 

34  FORMAT! 3BX, 4PHACCEL FRAT ION  -  ! FEFT  PER  SECOND-SOUARFD) / ) 

GO  TO  35 

33  WRITE! 3,31) 

31  FORMAT (SOX, )6 HE ORFF  -  (ROUNDS)/) 

35  UCl=--0. 

DO  8  N=l, 10 
UC1*UCI »5. 

3  THRUST  (  N)  =  liC  1 

WRITE! 3,12)THRUST 
12  FQRMAT(SXf2HUC,SX,  10FU.2) 

WRITE! 3,11) 

11  FORMAT! IHD, 6X, 1HU) 

U1*-?.S 
DO  7  M*l, 1 3 
U1«U1*’.S 
20  U»Ul*l.6B3 
UCl«-?0. 

CO  24  N«1,10 
UC1*UC1*9. 

UC*UC 1*1 .6R9 
IF!U)51,52.S1 
SI  FTA-UC/U 
GO  TO  SS 
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52  IF(UC)54, 53,53 

53  ETA*1. 

GO  TO  55 

54  ETA*-1 • 

55  RH0L*.9975*At*AL 
IFtETA-ETAHl >2,3,3 

2  IF<ETA~ETAL0)4,5,F 

3  TX*RHOL*( Al*U*U+Bl*U*Uf>C.t  *UC*UC> 
GO  TO  4 

4  TX*RHOL*C  A3  *U*U*83*U*UC+C3*UC*UC) 
GO  TO  6 

5  TX»RHOL*<  A?*U*U^8?*U*UOC2*UC*UC  > 

6  1F< J)23,23,24 

? 3  TX*TX/AM 

24  THRUST ( N) *TX 
IF( J ) 39, 39, 37 

39  WRIT£(3,10)U1, THRUST 

10  FORMAT  ClHO,Fll.?t10Fll .41 
GO  TO  7 

37  WRITfl'S  38  )lJt, THRUST 

38  F0RMAT(IH0,11FU.?> 

7  CONTINUE 

25  J=-l 
END 

/* 

/t 
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//  JOB  ZC690 

//  EXEC  FFORTRAN 

C 

C  ZC690  FRROR  CALCULATOR,  DS  ♦  DP  CONTROL 

C 

DIMENSION  COEF12) 

WRITEI3,  14) 

14  FORMAT (1H1 ,T5, ' ZC690,  FRROR  CALCULATIONS,  DS  ♦  DR  CONTROL') 

NS  *  l 

ISW=1 

WRITEH, 11) 

11  FORMAT! 1H0,T3, 'NO.' ,T7, 'SPEED* ,T14,'COEF' ,T29, 'PERCENT  CHANGE  OF  V 
1ARIABLF* ,T93,' INPUT  DATA',  /  T7, » (K TS ) • , T23 , 'DU' , T30, 'OTHE TA » , H 8 , 
2'DPHI l',T46,'DPHI2' ,T54,'DPSI' , T73 , • U60 ' , T83 , • THET HI • , T95, 'PHI  MIN' 
?,T107, 'PHIUP',T11Q, 'PSIAO'//) 

READI1 ,15) NOl 5 , N025 

15  FORMAT! I4,6X,I4) 

1  READIl , 10 )ND,COFF,U60,THETHI,PHIMIN, PHI  UP , P  SI  AO 
10  FORMAT! 14 ,AX ,2 A4 ,2X , FI 0. 5 , F I  0 .6 , 2F 1 0 . 8, FI 0.6) 

IF! NO- 1 ) 1 00,  6,  6 

6  GO  TO  12,3,4) , NS 

2  IF!N0-N015) 21,22,2? 

21  IF! ISW)4,4, 23 
23  I SPEE0=5 

PHI  0=0. 

PSI0=0. 

U0*8. 445 
THET0-. 005155 

7  DUR*U0-U60 
DTHETR=THETO-THFTH I 
DPHI 1R=PHI0— PHIMIN 
DPHI2R=PHI0-PHIUP 
0PSIR=PSI0-PSI60 
ISW*0 

WRITE  13,12 )N0, I SPFF D, COEF , U 60, T HETH I , PH  I M IN , PH  I  UP, P S I  60 

12  FORMAT! IH0,T2,I4,T9, 12 ,T1 4, 2 A4 , T70 , F9 . 5  ,T8?,F8.S,T9*,F10.R,T105, 

IF10.8,T117,F9.6) 

GO  TO  l 
4  DU*U0-U60 

0THET*THETO-THFTHI 

DPHI 1  * PH 1 0— PH I  MIN 

DPHI2=PH!Q-PHIUP 

OPS  I* PS I0-PSI60 

OFLU*lOO.*!DUR-DU)/OUR 

DEL  TH* 1 00. *( DTHFTP-DTHF  T) /D  THE  TR 

PELPHl=100.*!0PHdR-»)PHIl  )/DPHI  1R 

DELPH2=100. *(0PHI2R-DPH12) /DPH12R 

DELPSI=100.*!0PSIP-DPSI I/DPSIP 

WRITE  H  ,1  3)  NC,  I SPFFD,  COFF ,  DELU,  DELT  H,  DEL  PHI ,  DFl  PH?,DFLPSI  ,U60, 
1THETHI ,»H I  MIN, PH l UP, PS  I  40 

U  FORMAT  (T2,  14 ,  T9,  1 2,  T  14, 2A4,  T 2?, F  S .  1  ,  T30  ,F  5.  1 ,  T3R,F  5.  1  , T46 ,  FS  .  1  ,  TS4 
1  ,F5.l  ,T70,Fo.5,TR?  ,Ffl.6,T03  tF10.R,T105,  F10.R,T  117,  F«».6) 

CO  TP  1 

22  ISW*1 


2L0 
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NS  =  2 

3  I F ( N0-N025 1 74*  25 »  75 
24  IFUSW»4,4,76 

26  l SPEED*  1  5 
00=25.335 
THETO=.  001  89*5 
GO  TO  7 

75  ISW=1 
NS  =  3 

IF<  !SWI4,4,27 

27  ISPEEn-=75 
U0=42. 725 
THETO=.00150*» 

GC  TO  7 

100  CALL  EXIT 
FND 
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n  JOB  ZC  691 

//  EXEC  FFORTRAN 

C 

C  ZC691 ,  ERROR  CALCULATOR,  OS  CONTROL 
C 

DIMENSION  COEF ( 2  I 
WRITE!  %14l 

14  FORMAT ( 1H1, T5» *  ZC691,  ERROR  CALCULATIONS,  OS  CONTROL*) 

NS*1 

I  SW*1 

WRITE! 3, 11 ) 

11  F0RMAT!1H0,T3, 'NO* ,T7,*SPEFD* ,T14, 'COEF* ,T28, ‘PERCENT  CHANGF  OF  VA 
1RIABLF* ,T93,* INPUT  DATA*,  /  T7  ,  *  (  KTS )  *  ,T31 ,  *  DU  *  ,  T3  7 ,  T1THET  A*  ,T47  ,  * 
20Z*,T74,*Ul*,T85* *THET1 *,  T97, » Z l •, T1 10, * XG ' ,Tl 21 , • ZG* // ) 

READ!  1 ,15)N015,N025,1SW2 

15  FORMAT! 14, 6X, 14, AX, I  1) 

1  READ  II ,10)N0,C0EF,U1,THET1, Z1,XG, ZG 
10  FORMAT! I4»AX,2A4,2X,5F10.5> 

IF! N0~1 ) 1 00, 6, A 
A  GO  TO  (2, 3, 30), NS 

2  IF  I  NO-NO  15)21,22,22 

21  IF!  ISW )4,4, 23 
23  Z 0=800. 

I  SPEEO=  S 
U0=8 .445 
THFTO=. 005155 
7  DUR=U0-U1 

DTHETR=THET0-THET1 

OZR=ZO-Z1 

ISW*0 

WRITE!3,12)N0,  ISPFEn,COEF,Ul,THETl,Zl  ,XG,7G 

12  FORMAT!lHO,T2»I4fT9lI2,Tl4,?A4,T70»F9.5,T83, FO .A, T9 7, F<* . 3, T 109, F 5. 
12,T120,FA.4) 

GO  TO  l 

4  nu=uo-ui 

DTHFT=THET0-THFT1 

OZ=ZO-Z1 

nELU* lOO*!OUR-OU) /OUR 

DEL  TH=100.*(0THFTP-DTHFT)/DTHFTR 

0ELZ*1 00.*!CZR-0Z)/0ZR 

WRITE!  3,1  3)  NO,  ISPFEO,COFF,OELU*DELTH»DELZ*I)1  ,  THFT1  ,  Z1  ,  X  G ,  ZG 
1  1  FORMAT  IT?,  1 4, T9,  I2,T14,?A4,T30,FA.l,T38,FA.l.  ,T4A,FA.l  ,T70,FQ.S,T85 
l  ,F9.6,T9-*,FO.3,Tl0R,F5.  2,T1  20, FA. 4) 

IF!  I S W ?  ) 2 8 ,  29, ?R 
25  ISW-1 
29  GO  TO  1 

22  ISW*1 
NS  *2 

3  IF! NO-N025) 24, 25,25 
’4  IF  (  ISW  )  4,  4,  ?A 

?  A  I SPEF0«1 5 
UO*  25. 5  35 
THFTO* ,00 1 895 

GO  TP  ’  2hh 
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25  ISW=1 
NS=3 

30  I F C  I  $W) 4  »4»  27 
27  ISPEED*  25 
UO *42.25 
THETO*. 001803 
GO  TO  7 
100  CALL  EXIT 
END 

/* 

ft 
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//  JOB  EC140 

//  EXEC  FFORTRAN 

COMMON  AI5,S#2S),  AA(2S1,NP11 

DOUBLE  PRECISION  A,  AA,  C<3),  Al,A2,A3,  ROOTRUOI,  ROOTI  (  1 0 1 
0 1  ME NS l ON  ISWUO) 

EQUIVALENCE  I C (II , A 1) , I C( 2 1 , A? ) , (Cf 31 ,A3) 

I  N*1 
10UT*3 

TWOPI=6«2831  8 
LINSPP*S4 

1  CONTINUE 

READ! IN, 100 )ZWD»  ZW,  ZOO,  7Q,  AMWO,  AMW »  AMQO,  AMQ 
IFIZWO-999. >10,90,90 
10  CONTINIIF 

READ! IN, 100 )  AW,  AQ,  AMAWO,  AMWAW,  ZWAQ,  ZWAW 
READ! IN, 1001  XUD , A1 1 , A1 ? , ZS TR , AMSTR , XQQ, XWQ 
RE AD (IN, 100)  AL,  AM,  AIYV,  B,  ZB,RHO 
I PAGF*1 

WRITE ( I OUT ,  ?)  I  PAGE 

2  FORMAT (1 HI,  5SX, • EC  140', SOX, ‘PAGE* ,I6/> 

WRITE( TOUT ,4 I  ZWD ,  ZW,  ZQD,  ZO,  AMWD,  AMW,  AMQD,  AMQ, 


1 

AW, 

AQ, 

AMAWQ 

,  AMWAW,  ZWAQ ,  ZWAW, 

AXUD, 

All, 

A 1  2 , 

ZSTR,  AMSTR,  XQQ ,  XWQ, 

? 

AL, 

AM, 

ATYY, 

B,  ZB,  RHO 

4  FORMA  T(1M  ,  BX  ,  •  ZWO*  ,  14X ,  *  ZW '  ,  1  *  X,  •  ZQD*  ,  1 4  X ,  •  ZO  •  ,!3X,«MW0»  ,14X, 
l'MW',13X, ' “Q0' , 1 4X, • MQ» / 

21H  ,8P16.6 // 

AIM  ,8X,*AW',1«X,  'AQ*,  I3X, 'MAW0M3X,  •  MWAW  1  , 1 1  X ,  *  Z WA Q*  ,13X,'ZWAW»/ 
P1H  ,6*14.6// 

TIH  ,8X,'XU0*  ,14X,'AU«  ,  12X,  *Al?',14X,  »ZSTR»  ,  1 1  X , »  MSTR  •  ,  1  XX  ,  *  XQQ*  , 
ri2X,'XWQ*/lH  , 7E16 ,6// 

31H  ,  10X,'|.'  ,15X,'M*  ,14X,'l  Y*  ,1CX,‘0»  ,14X,  •  ZR*  ,1  'X,  *RHH»/ 

41H  , 6E 1 4 ,6/  ) 
l WH  a  ZW 
AMWH  =  AMW 
AMQH  a  AMQ 
WR I TF ( I  OUT  *  4  I 

6  FORMA T (  IH  ,9X,*MW«  ,14X,»MQ»  ,1<*X,'ZW'/ 

1  IH  ,«>X,  »Al  •,  14X,  »A2*  ,  14X,  *A3*  ,  14X,  •  A4«  ,  14X,  ♦  AR«  ,  l«5X  , «  IM  / 

21H  ,10X,'R»  ,!SX,»l»  ,15X,*R'  ,1*X,'  P  ,  1SX,«P*  ,  1SX,  M*  ,1SX, 

A '  R  *  ,  1'5X  ,  '  I  •  / 

31  H  t9X,*WN'»  1?X,  *Tf  1/21  • ,  1  3  X ,  •  P  ' ,  lSX,,f)*/I 
I  I  NS*  1 6 
SO  CONTINUF 

PEA0UN.100)  t> 

100  FORMAT ( 8F 1 0. SI 
IF (U I  40,1,40 
40  CONTINUE 

U  *  U  *  1,4*9 
WBAP  *  AW/il 
QBAR  a  AO*At/i; 

AMW  *  AMWH  ♦AMWAW*MPA» 

AMQ  e  AMQH  ♦AMAWQAWRAR 

ZW  *  Z WH  ♦  ZWAQ*QRAR4-ZWAW*WRAP 

2L6 
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N  *  2 
NCOL  =  1 
M  *  N*NCOlM 
DO  6?  I  s  1  *  NCOL 
DO  62  J  s  l ,  NCOL 
DO  62  K.  =  t,M 
6?  A(l,J,K)  =  0. 

AL?*AL*AL*RH0/2. 

AL3*AL?*AL 

AL4*AL3*AL 

AL5*AL4*AL 

T1=AL3*ZW0-AM 

T2=AL4*AMW0 

T3*BPZ8 

T4=U*A*I+AL3*U*ZQ 

T5* AL?  *U*ZW 

T6=AL4*U*AM0 

T7*Al.‘»*AMQ0-AIYY 

T8=AL^*U*AMW 

T9=AL4*ZQ0 

A1  =  T7 

A?  =  T6 

A3  =  T3 

CALL  PLACE  1 1 1 It  C ) 

A  1  =  T  2 
A2  =  T  A 
A3  =  0. 

CALL  PLACE!  1 ,2,0 
A1  =  0. 

A?  =  T9 
A  3=  T4 

CALL  PL  ACE!?, 1,0 
A2  =  T1 
A3  =  T*5 

CALL  PL  ACE l 2 »  2 , 0 
A2  =  0. 

A3  =  AL3*1J*(  XQ0*0«AP»XW0*W«AP|-Ai<*WBAR*U 
CALL  PL  ACE !  3,  l  ,0 

A3  «  0. 

CALL  PLACE (3,2,0 
A2  »  AL3*XUD-A* 

A3  *  AL2*U*t  AU*A1I*A1?» 

CALL  PLACE!?, 3,f.| 

A2  «  AL3*AMSTR*?.pU 
A3  «  0. 

CALL  ®LACEM.3,r» 

A2  «  0. 

A3  •  AL3*ZST»*2.*U 

CALL  PLACE!?, 3,0 

call  cmpeqn 

NPf-NPHM 

CALL  BllLLER!AA,  NP  1 1  »RQf*TR  ,  ROOT  I  , ! $W, fERR ) 

DC  7*  I  *  I ,  NPt i 

l F (OARS! BOOT ! ( !! 1-1 «0-SI 74, 74, 7* 

219 
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74  CONTINUE 

WR I TE  1 1  OUT »  7*51 

75  FORMAT!  1H  ,  «NO  ROOT  WITH  IMAGINARY  PART  FOUND') 
GO  TO  50 

76  TR  =  DABS! ROOTRC! H 
T  I  *  OABSIROOTIU  I  ) 

WN  *  SQRT!TP*TR+TI*TI1 
THALF  *  .691/TR 
P  =  TWHPI/TI 
n  =  TR/WN 

IF! LINS-LINSPP) 80,79,79 
79  IPAGE=  t  PAGE  +  I 

WRITE !I0UT,2)  IPAGE 
WR I TE l I OUT »  6 ) 

L I NS=6 
50  CONTINUE 

WRITE  !inuT,R2)  AMW,AMO,  ZW 

WRITE  linUTf82)  I AA ( T I , 1=1, NP1 ) ,U 

WRITE  (inUitR?)  ( ROOTR ! I) , ROOT I !I)»I=l»NPll) 

WR  ITE  t IOUT ,8? )  WN, THALF, P,D 
WR  I  TE  ( I  O'JT  ,8  v) 

8?  FORMAT ( 8F 1 6 . 6) 

81  FORMAT ( 1 H/ ! 

LlNS=LIN$+5 
GO  TO  *0 
90  CALL  FXIT 
END 
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SUBROUTINE  PLACE(ItJtX) 

DOUBLE  PRECISION  M5,5,?5),  X ( 1  > 
COMMON  A 
KK  =  1 

nn  400  K=1 1 3 
A(IfJfKK)  *  X ( K  I 
400  KK  =  KK-1 
RETURN 
END 
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SUBROUTINE  CHREON 

OCUBLE  PRECISION  COE ,C1 ,C2,AA,A,SB,SA 

DIMENSION  Al%5,25),COEl25>  ,MAT{  8,  8), Cl I  25)  ,f.2(  25)  , A  A  (  ?*? ) 
COMMON  A,  AA,  NP11 
N  *  2 
NCOL  =  3 

1  M=N*NCCL+ 1 
1501  N  1*N+ 1 

NC0L2=  NCQL*NCOL 
LI  =  Nl  ♦  1 
no  301  1  =  1, M 
cim=o. 

AAII)=0. 

303  C2(  I)  =  0. 

NP1=N+1 

C  FIND  OFGREF  OF  EACH  MATRIX  ELEMENT 

00  2  I- 1  *  NCOL 

no  2  J=1 « NCOL 

MATI I ,  J)=0 
00  2  K= 1 »  N 1 

I E  I  A(  I  ,  J ,  K)  )  600,2,600 

600  MAT! I , J 1 =K 

2  CONTINUE 

C  TRIANGULARI ?E  THE  MATRIX 

J  3=0 
Jl  =  l 

10  J9=0 

DO  3  1  =  J1 ,  NCOL 
IFIMATI I, Jl ) 1 100, 60 1, 601 

601  IF(MATU,J1))602,3,602 

602  J9= J9+ 1 
J3=  I 

3  CONTINUE 

C  Jl  =  COLUMN  NUMRER 

C  J9  =  NUMBER  OF  NON-ZERO  ELFMFNTS  IN  THIS  COLUMN 

C  J3  =  LAST  NON-ZERO  ELEMFNT  IN  THIS  COLUMN 

11  I E I J9- 1 ) 100,603, 12 

603  IFCJ3-JI 1100,112,204 

204  no  4  J= J 1  ,  NC  OL 

J2*  MAXOIMATI J3, J I ,MATI Jl , J H 
J4*MAT I  J3  ,  J  ) 

MATI J3,J)*MAT( J1,J) 

MAT  ( J  1 ,  J  )=*  J 4 
no  4  K»1,J2 
SA  =  AI J  3 , J , K 1 
A( J3,J,K)*A( Jl, J,K  1 
A ( J1,J,K)*-SA 

4  CONTINUF 
GO  TO  112 

12  J3* Jl ♦ 1 

no  in  t*j3,Ncni 

13  IFIMATI!, JllllOO, 111, 205 

205  IFIMATI  Jl  ,  Jl  m00,l4,?0A 

206  IFIMATI  I, Jl  1-MAT ( Jl , Jl))  14,  1  R  ,  1  5 
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C  INTERCHANGE  ROW  I  WITH  J1 

14  DO  6  J-  J 1 , NCOL 

J2  =  MAXO ( MAT (J1»J),MAT(!,JI) 

J4=  MAT! J1 , J ) 

MAT ( J 1 » J )  =  MAT (  If J) 

MAT I!  »  J) = J4 
no  6  K=l,J2 
SA=  A  ( 1 ,  J ,  K  ) 

All ,J,K)=A(J1»J,K) 

A< Jl, J,K)=-SA 
4  CONTINUE 
GO  TO  13 
C 

15  J7=MAT(IfJl) 

J5=MAT( J1,J1) 

J6=J7-J5 

SB*A(I,  Jl,  J7)/A(J1,  Jl,  J5) 

IFIABSISB)-4. 116,207,207 

207  I F < J 6 ) 100, 14, 16 

16  00  19  J=  J1  ,NCCI. 

J5=MAT( j 1 , J ) 

DO  19  K=1 , J5 

J7=  K+J6 

IFU7-MH7, 17,110 

17  IF(  ABSI  MI,  J,J7)-$B*A<  J1,J,  K)  J-2.F-15) 18, 18,208 

208  A ( I  ,  J , J7 )  =  A{ I  ,J, J7)-S8*A( J1,J,K) 

GO  TO  19 

18  A(  I ,  J  ,  J7  >0. 

19  CONTINIF 

110  DO  7  J= J l , NCOL 

J7  =  MAXOIMATI I,J),MAT (J1,J )  +  J6  ) 

MAT ( I , J) =0 

DO  7  K=1,J7 

I  F ( A ( I , J , K ) 1209,7,209 

209  MA T ( I , J ) =K 

7  CUNTINUF 

111  CONTINUE 
GO  TO  10 

112  Jl=Jl*l 

I F ( Jl-NCOL) 10,210,210 
C  GET  POnnUCT  OF  DIAGONAL  FIEMFNTS 

210  DO  115  J*1 , NCOL 
J2*WAT1 J,J) 
no  8  K*  1 ,  J  2 

8  Cl  (K)*AU,  J,K) 

113  IFIJ-l) 100,1  14,211 

211  00  9  K*  l, NP 1 

9  C2  l  K)  -»COF  1 K  ) 

DO  116  K»1,x 

114  COE  IK  1*0 . 

IF! J2 11 00, 115, 212 

212  00  117  K  *  l » J  2 
00  117  J10«1,NP1 
Jil*  K*J10-1 
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C0E(J11)*C0EIJ11)+C1(K)*C2( J101 
117  CONTINUE 
NP 1*J1 1 
GO  TO  115 

114  00  118  K*l , J2 
119  COEfKl-ClIKI 

NP1*J2 

115  CONTI NUF 
100  II-NP1 

00  401  1*1, NP1 
AAUn-COEU) 

401  11*11-1 

NP1 l*NPl-l 

RETURN 

END 
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SUBROUTINE  MULL  ER  <  CO,.  ,  Nl, ROOTR  , ROOT  I  tISW,IERR. 

MULLER  ROUTINE  FOR  ZEROES  OF  POLYNOMIALS  W . TH  R FAL  COEFFICIENTS 

COE  IS  THE  ARRAY  OF  POLYNOMIAL  COEFFICIENTS  ORDERFO  FROM  HIGHEST 

TO  LOWEST  POWER  OF  X 

N1  IS  THE  OEGRFF  OF  THE  POLYNOMIAL 

ROOTR  IS  THE  ARRAY  OF  REAL  COMPONENTS  OF  THE  ROOTS 
ROOTI  IS  THF  ARRAY  OF  IMAGINARY  COMPONENTS  OF  THF  ROOTS 
ISW  IS  AN  ARRAY  OFFINING  THE  VALIDITY  OF  THF  ROOTS 

IS W(  N)  *  0  THF  NTH  ROOT  HAS  BEEN  STORFn  IN  ROOTR(N)  AND 
ROOT  I (N) 

ISWtN)  =  1  THE  NTH  ROOT  HAS  BEEN  STORED  IN  ROOTR ( N)  AND 
ROOT  II  N  I ,  BUT  IT  MAY  NOT  BF  VALID 
I  ERR  IS  AN  FRROP  CODE  WHICH  HAS  THE  FOLLOWING  SIGNIFICANCE. 

IERP  =  0  ALL  ROOTS  FOUND  CORRECTLY 

I  ERR  -  1  ONE  OR  MORF  ROOTS  MAY  BF  INVALID.  TEST  THE 

ISW  ARRAY  . 

IERR  =  ?  POLYNOMIAL  DEGREE  IS  LFSS  THAN  I 

IERP  =  3  POLYNOMIAL  DEGREE  IS  LESS  THAN  N1 

FOR  A  POLYNOMIAL  OF  DEGREE  N1  THE  COE  ARRAY  SHOULD  RE  DIMENSIONED 
N1+  1  IN  THF  USER  PROGRAM.  THF  OTHER  ARRAYS  SHOULD  RE  DIMENSIONED 
N 1  IN  THE  USER  PROGRAM. 

THE  POLYNOMIAL  IS  SCALED  TO  AVOID  ARITHMETIC  OVERFLOW.  ALL 
SCALING  USES  FACTORS  OF  16.  TO  CHANGE  TO  FACTORS  OF  X,  SFT  RASE 
*  X  AND  CONST  =  LN(X)  IN  SUBROUTINE 

THIS  SUBROUTINE  USFS  DOUBLE  PRECISION  ARITHMFTIC.  SINGLE  PRECISION 
IS  NOT  RECOMMENDED. 

DIMENSION  COEI1  ),  ROOTRU),  ROOT  I  <11 ,  ISW  C  1  I 

DOUBLE  PRECISION  C  OF  ,  TF  2,  TF  3  ,  PI  V,  TE  F7 ,  DEI  ■>  ,  TEH » HFl  L ,  TFM? ,  AL  P 1R » 
IALP2R,  ALP3R,TEST1,7TAU2,AXR,TE5,TF4,UPP,TEMR,DF16, TF 1 4 , BEL L , ROOTR , 
2ALP1I ,ALP2I ,ALP3I,TEST2,AXI ,  TF6  ,T  F7  ,  T  EB  ,  T  F*  I , T E 1 1,  T F IS, T AU 2,ROOT I , 
3BET1P,BET2R,RET3R,ALP4R,TE1 ,TEMfTEP,TAUtTFl  0,  TF 12 , TF 1 6 , TEM1 , Z1 , 
4BET1 I, BFT2ItBET3I, ALP4I,Z2,Ol,07.FACT0R 

BASE  =  16. 

CONST  =  2.772S9 

CALL  MASK ( 0 1 
IFINl  -  1)  27, 28,28 
27  IFRR  *  ? 

GO  TO  193 
“>8  IERR  *  0 
FACTOR  *  0. 

N2*Nl*  1 
N4«0 
t*Nl*t 

19  IFlC0Em)9,7,9 
7  N4*N4+1 

RO0TR(N4>«0, 

ROOT  1 1 N4 1»0. 

I-I-l 

IFIN4-N1 119,37,19 
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9  CONTINUF 

IFfCOEfl))  1 90* 1 92 » 1 90 

190  TEMP  *  OABSlCOEm/CDFUJ  ) 

TEMP  »  ALOC<TEMPl/CONST/(  1-1) 

K 2  *  TFMP  ♦  SIGN(.*5,TFMP| 

TEMP  *  0A8S(C0F(in 

TEMP  =  ALOG( TEMP )/ CONST 
K 1  =  TFMP  ♦  SIGN(  .*5, TEMP} 

00  191  I  ®  1,N2 

191  COE ( I )  =  COE  ( I )/BASF**(Kl  ♦  K2*II-1)I 
FACTOR  *  BASE**K? 

GO  TO  10 
19?  IERR  =  3 

193  00  194  I  »  l»Nl 
ROOTR ( I )  =  0. 

ROOT  I (I)  =0. 

194  ISHUI  =  1 
RETURN 

10  AXR=0. fl 
AXI=0. 

L=1 

N  3®  1 

ALP1R=  AXP 
ALP1 I  =  AX  I 
M=1 

GO  TO  99 

11  BET1R=TFMR 
BET1I*TEMI 
AXR=0 - BB 

A  LP2R® A  XR 
ALP2I® AXT 
M®2 

no  TO  99 

12  BET?R=  TFMR 
BET2 I =TEM I 
A  XR*0»  9 
ALP3R=AXR 
ALP3I=AXI 
M="* 

GO  TO  9<i 

13  BETXR=TFMR 
BET3I=TEM| 

14  TE1*ALP1R-AIP3R 
TE2«AL5»l!-AtP3I 
TE5«AIP3R-ALP2R 
TE6*ALP3 I-AtP? I 
1EM*TF**#TF5»TE6*TE4 
TE3-1  TFl*TE5*TF?*TFM/TFM 
TE4«(TF?*TF5-TF1 •TE61/TFM 
TE7»TF3»1. 

TE9«TF3*TE3-TF4*TF4 
TE10«2.*TE3*TF4 
nEl'i«TF7*BET3«-TF4*BFTV 
0E16>«TF7*BFT3I  ♦TF4*BFT3P 
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TEl  l=TE3PflET?R-TE4*RFT2I  +  BETlR-DEl  5 
TE12=TF3*8FT2H-TE4*BET?R+3ET1I-DE16 
TE7=TE9-1. 

TE1=TE9*BFT?R-TE10*BFT?I 

TE2=TE9*RET2I*TE10*«FT?R 

TE13=TF1-BFT1R--TF7*RFT3P  +  TE10*PETM 

TE14=TF2-BFT1I-TF7*PFTM-TE10*BET3R 

TE15=DF15*TF3-0F16*TF4 

TE16=DF15*TF4+0E16*TF3 

TE1=TE13*TF1  3-T  Fl4*TE14-4.*(TFll*TEl‘5-TE12*TFl6) 
TE  2  =  2. *TF13*TF14-4.*(TF!?*TE15*TF11*TF16) 
TEST1=0ABS(TF1» 

TEST2=DABS(TE?> 

IF ( TE  ST1-TE  ST2I  300,301,301 

300  DIV=TEST2 
UPP=TFST1 
GO  TO  303 

301  0 IV=T  FST 1 
UPP=TF  ST? 

IF(0IV-1.0-7Q)  c<?9,^03,303 
999  niV=  1.0-70 

303  TEM=OI VPOSORTll .♦ < UPP/OI V) * ( UPP/OT V 1 1 
I  F ( TE 1  1113, 113, 11? 

113  TE4=0SQRT( .**(TEM-TF1  11 
TE3=,S>*TF2/TF4 
GO  TO  111 

112  TF3=DSQRT(.5*(TFM+TF1 M 
I  F  (  TE  21 110,200, ?00 

110  TE3*-TF3 

200  TF4*.5*TF2/TF3 

111  TE7=TE13+TP* 

TFR=TE1 4+TF4 
TE9  =*TF  1 3-TF3 
TE10*TPI 4-TF4 
TE1=2.*TE1S 
TE  2  =  2. *TF 1 4 

IF l TF7*TE7+TFR*TFR-TE9*TF9-TE1 0*TF 1 0  1  204  ,?04 , ?05 
204  T£7=TFO 
TF0.TF1O 

?05  TEM*TE7*TFT*TFP*TFR 

I  F  (  TEM  -1.0-701  99«  ,<*97,997 
99 B  TE**«  1.0-70 

997  TE3=(TEl*TF?  ♦  IF?  *TF«1/TFM 
TE4  =  t  TF?*TF7-TFl*TF«l/Tt=M 
AXO  =ALR  3R ♦ TF  3*Tg  S- TF  4*TF  4 
AX  I*AIP3UTF3*TFA  +  TF4*TF«5 
ALP4k*AXR 
ALP4I-ATT 
*«4 

GO  TO  <»9 
15  Nf *  1 

3R  01»0AR51HFLt )*OARSf BFll  1 

TF7«0AB5t ALP3R-AXR1*0AR5J  ALP0I-AX  1  1 
TfE?«  P.AftSIAXR  l+OABSI  AXI  ) 


257 


n «-» >■* 


NAVTOADEVCEN  68-C-0050-2 


C  IS  THE  FUNCTION  VALUE  NFAR  ZERO  7 

IFIOl  -1.0-20  1161,161,  16 

C  IS  THE  ROOT  SHALL  ? 

161  IFITFE7-1. 00-031 162, 16,16 

r  IS  THE  CURRENT  ESTIMATE  FOR  THF  ROOT  ESSENTIALLY 
C  THE  SAME  AS  THF  PREVIOUS  ESTIMATE  ? 

62  IFITE7-1, 0D-12)  18,17,17 

ARE  THE  CURRENT  AND  PREVIOUS  ESTIMATES  OF  THE  ROOT  ESSENTIALLY 
THE  SAME  WHEN  COMPARED  TO  THE  MAGNITUDE  OF  THE  ROOT  ? 

16  02-TE7/  TEE 7 

I F 1 02  -  1 .F-7) 18,18, 17 

17  N3*N3M 
ALPIR=ALP2R 
ALP1 1  =  ALP2  I 
ALP2R»ALP3R 
ALP?I=ALP3t 
ALP3R=ALP4R 
ALP3I=ALP4I 
BET1R=RET?R 
BET1 I=RFT2l 
RET 2R  =B FT  3R 
BET  2  I  =  BFT  3 1 
BE  T  3R  =TE  MR 
BFT3I=TFMI 
IE(N3-?0G>14,25,?5 

25  I  SWT  =  l 
GO  TO  26 

18  I  SWT  =  0 

26  N4  *  N4  ♦  1 
ISWIN4)  =  ISWT 
ROOTRI N4  1  =  ALP4R 
P00TI(N4)=AIP4I 
N3  =  0 

41  IEIN4-N11 30,37,37 

37  CONTINUE 

I F ( FACT  OR  1  140,140,138 
138  DO  1 34  I  *  1 , N 1 

ROOTRI I  1  *  ROOTRIIJ ^FACTOR 
ROOT!!!)  »  ROOT  I (I  I  REACT OR 

no  coEtn  *  cofui*rase**iki*k?*u-i  i ) 

C0EIN2)  *  r0FIN?l*8ASE**IKl*K?*Nl) 

140  DO  141  T-1.N1 
IFIISWtm  141,141,14? 

141  CONTINUE 
I  ERR  *  0 
GO  TO  3001 

14?  I FRR  «  l 
3001  RETURN 

30  I E  (  OARS  I  ROOT  1 1 N4  1  /ROOTR  I N4  1  I  -  l.F-51  I0,10,ni 
131  I F  I  I  SWT  1  31, 13?, 31 
13?  GO  TO  I  133,1341  ,L 
133  N4  ■  N4  ♦  1 
M4  *  N4 
GO  TO  1  35 
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H4  MA  =  N4  -  1 
135  R00TR(M4)  =  A  XR 
ROOT  I  ( M4 )  *  -AX  I 
I SW( M4 1  =  0 
IF(M4  -  Nl)  10,37,37 

31  GO  T0{ 32, 10 )  ,L 

32  AXR=ALP1R 
AX  I- — ALPl  I 
ALP1 I =-ALPl I 
Ms  5 

GO  TO  PR 

33  BET1R=TFMR 
BETlIsTEM! 

AXR= Al P?R 
AXI  =-ALP?  I 
ALP2I=-AIP2I 
M=6 

GO  TO  99 

34  BET 2R=TEMR 
BET2I=TEM1 
AXR=ALp3R 
AX  I =-AL  P  3 1 
ALP3I=-ALP3I 
1  =  2 

Ms  3 

99  TEMR-COE ( 1  ) 

TEMI*0.0 

00  100  1=1, Nl 

tei=tfmr*axp-tfmi*axt 

TEMI  =  TFMI*AXR  +  TFMR*AXI 
100  TEMR*  TEUCOEUMI 

HELL=TFMR 
RELL=TFM1 

42  IFCN4H02,  103,  10? 

102  00  101  I *1 ,N4 
1EM1=AXP-R00TR ( I  1 
TEM2*AXI-R00TI ( f) 
TE1*TEM1*TEMUTFM2*TCM? 

TE2*( TFMR*TFM1*TFM!*TEM?» /TE1 
TEMfs ( TFMI*TFM1 -TEMR*T  FM? J/TE1 

101  TEMRsTF? 

103  GO  T0(  11,  12,  13,  15,33,341,9 
ENO 

/* 

/& 
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//  JOB  EC320 

n  EXEC  FFORTRAN 

COMMON  A(5,5,?5),  AA(25),  NP 1 1 

OOU8LE  PRECISION  A,  AA,  C(3),  At,A2,A3,  ROOTR(IO),  ROOTI (10) 
DIMENSION  ISW(IO) 

EQUIVALENCE  (C ( 1 1 , A 1 ) , ! C ( 2 ) , A2 ) ,  (C(3),A3) 

IN  *  1 
IOUT  *  3 
LINSPP-56 
4  CONTINUE 

READ  (IN* 101 YVD «  YV,  YPD,  YP,  YRD,  YR 
IF! YVD-999 .18*6,6 
6  CALL  EXIT 
B  CONTINUE 

READ  ( I N* 10 ) AKVD,  AKV,  AKPD*  AKP ,  AKRO,  AKR 
READ  (IN, 101ANVD,  ANV,  ANPD,  ANP,  ANRD,  ANR 
READ  (IN, 10)  AL,  AM,AIX,AIZ,  B,  ZB,  RHO 

REA0(IN,10)  YVAV,  YVAR ,  YPAP,  AKVAV ,  AKPAP,  ANVAV,  ANRAR,  ANAVR 
READ! IN, 10)  RBAR,  VP AR ,  PBAR 
READ ( IN, 1 1 )  IDIV 

10  FORMAT!  8F10.5 ) 

11  FORMAT! 161 B) 

YVH*  Y V 
YPH«  YP 
AKVH-AKV 
AKPH*  AKP 
ANVH*  ANV 
ANRH*  ANR 
IPAGE  =  1 

WRITE! IOUT, 12)  IPAGF 

12  FORM AT (1H1, SOX, • EC 320 • 40X , * PAGF • , 1 1 0/ ) 

WR I TF ( IOUT ,42 ) 

WRITE! IOUT, 040) YVD,  YV,  YPD,  YP,  YRD,  YR 
WRITE! IOUT, 44) 


WRITE  (IOUT  ,0^0)  AKVD, 
WR ITE! IOUT, <61 

AKV, 

AKPD, 

AKP, 

AKPD, 

AKR 

WR I TF ( IOUT ,040 ) ANVD, 

ANV, 

ANPD, 

ANP, 

ANPD, 

ANP 

WR I TF ( l OUT ,48) 

WR  ITE (  IOUT ,040) AL ♦ AM,  AIX,  AI7,  B,  ZB,  RHO 

WR I TF ( I  OUT ,49 ) 

WRITE! IOUT, 40) YVAV, YVAR, YPAP, AKVAV, AKPAP, ANVAV, ANRAR, ANAVR 

WRITE! IOUT, 30) 

WR I TE ( I  OUT ,401 RBAR ,  VBAR ,  PBAR 

40  FORMAT!  1H  , RF16.A) 

42  FORMAT  1 1 M  , 8X, * YVD* , 1 3X, * YV* , 14X, * YPD* , 1 3X, • YP • , 14X , • YRD • , 

11 3X,' YR* ) 

44  FORMATdH  ,8X,*KVn»,13X,»KV*,14X,  »KP0»,13X,'KP»,14X,«KR0*, 

11 3X**KR* ) 

46  FORMATflH  , RX , • NVD‘ , l 3X , * NV * , 1 4 X , • NPD* , I 3X , • NP • , 1 4 X , • NR  0* , 
l 1 3X, • NR* ) 

48  FORMAT! IH  ,RX , * L • ,1 5X, « M* ,  1  SX, • IX • , 1 4X, M ?* , 1 4X , • B « , 1 SX, • ZB • , 
H4X,«RH0*) 

49  FORMAT ( 1 H  ,PX,*YVAV#,l2Xf*YVAR»,l?X,'YPAP*,l?X,»KV4V«,12X, 
l ' KPAP  * ,12X, •NVAV' ,1  2X, »NRAR» ,1?X, *NAVR* ) 
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50  FORMAT ( 1 H  ,8X,'PBAR',12X,»VBAR«,12X,'PBAR') 

WR ITE! I0UT,5?1 
52  FORMAT (1H/ I 
WRITE!! OUT ,54  ) 

54  FORMAT! IH  , 8X, • YV' , 1 4X, • YP' , 14X, • KV*  1 14X , * KP' , 14X, • NV*  , 14X , « NR' / 
1  1H  ,8X, *A1',14X,  'A?'  ,14X,'A3«,14X,'A4»,14X,  »A5» , 1 4X, »U' / 

21H  »8X»,R,»15X»,!*tl5Xt,R,»l^Xt,!*»15X**R,tl5Xf'I,fl5X«,R,»15Xt 
3M'/I 
LINS  =  IP 
56  CONTINUE 

READ  ( IN* 10  >  U 
IF!U>58,4,68 
58  CONTINUE 
U=  U*  1.680 
IF! IDIVI62 ,64,6? 

6?  CONTINUE 
OIV  *  U 
GO  TO  65 

64  DIV  =  1, 

65  CONTINUE 

YV  *  YVH  ♦<YVAV*VRAR«-AL*YVAR*PPAR)/DIV 
YP  =  YpH  ♦  AL*YPAP*P8AR /OI V 
AKV*  AKVH+  AKVAV*VBAR/OIV 
AKP«  AKPH  ♦AL*AKPAP*PBAR/niV 
ANV=  ANVH  ♦  ANVAV*VBAR/OIV 
ANR*  ANRH  ♦!AL*ANRAR*RB4R+ANAVR*VRAR)/DIV 
N  =  ? 

NCOL  =  3 
M  *  N*NC0L+1 
00  60  1=1, NCOL 

DO  60  J=  1 ,  NC  OL 
00  60  K=1,M 
60  A!  I,J,KhO. 

RL  *  RHO*AL/? 
pL2  =  R L*  AL 
RL3  =  «L?  *  AL 
RL4  =  RL3  *  AL 
RL  5  *  RL4  *  AL 
RL4U  =  RL  4  *  IJ 
RL3U  *  RL3  *  IJ 
A  l  *  0. 

A?  *  RL3*YVP-AM 
A3  *  RL?*U*YV 
CALL  PI.  ACE  !  1 , 1  ,C  l 
A?*  RL4*Ypn 
A3»  RL^U*YP 
CALL  PLACE! 1  ,*,C) 

A2«  r 1 4*vp  n 

A3«  °L-'U*YR  -AM*ll 
CALL  °L  AC P (  1  ,3,M 
A?  *  ®L4*ANVn 
A3«RL^U*ANV 
CALL  pl\CFt  ■»,!  ,C  > 

A2*PtS* ANPn 
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A3*RL4U*ANP 
CALL  PL  ACE! 3, 2, C  ) 

A2*  RL5*ANRD-AIZ 
A3*  RL4U*ANR 
CALL  PL  ACE  ! 3, 3, C  ) 

A1  *  RL4*AKV0 
A2  *  RL 3U*AKV 
A3  *  0. 

CALL  PLACE!2,1,C) 

A1*RL5*AKP0-AIX 

A2  *  RL4U* AKP 

A3  *  B*ZB 

CALL  PLACE! 2,2,0 

A1*RL5*AKRD 

A2=RL4tJ4AKR 

A3*0 . 

CALL  PLACE! 2,  3,  C ) 

CALL  CHREQN 
NP 1=NP l 1+ 1 

IF!LINS-LINSPP)80,70,70 
70  I PAGF*I PAGE+1 

WRITE! IHUT, 12)  IPAGF 
WRITE! I0UT,54) 

LI NS=5 

BO  WRITE ( TOUT ,40)  YV»  YP,  AKV,  AKP,  ANV ,  ANP 
WRITF ( I  OUT  f40)(AA(I),I*lfNPl),  U 
CALL  WULLER ! AA ,  NPll ,RDOTR ,RDOTI ,1 SW,  IFRR) 
WRITE!  !OUT,40!!ROnTR(  I  ),  ROOT  I  (I  ),I*l,NPU) 
WRITE! TOUT, 52) 

LINS  =  LINS  ♦  4 

GC  TP  *i6 

END 
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//  JOB  EC  150 

n  EXEC  FF0RTRAN 

DIMENSION  V 1500 ) t  T<500),  NAMEI2I 

IN*  1 

!0UT*3 

PI  *  3.14159 
TWOPI  *  6.28318 
10  READ! IN, 20  I  N 
20  FORMAT I16I5I 
IF ( N I  23, 22, 23 

22  CALL  FX  IT 

23  CONTI NUF 

24  FORMAT !F10.5,2A4I 
READ!! N» 241  U,  NAME 

25  FORMAT!  2F  15.  71 

READ! IN*  251  ARC,  Tf 1 » 

Y ! 1 >  *0. 

00  30  I*2»N 

READ! IN, 25)  V! II,  Til) 

VIII  *  Ytn-ARG 
30  CONTINUE 

READ! IN, 35  I  A,R,G,D 

35  FORMAT!  8F10.5J 
IPAGE  *  1 
LINS  *  6 
LINSPP  *  52 

WRITE! IOUT, 361  IPAGE 
IPAGE  *! PAGE+1 
U  *  11*1.689 
WRITE! IOUT ,381  U 
WRITE!! OUT ,40)  NAME 

36  FORMAT! IH1 , 50X, • EC  1 50' ,  40X , • PAGE • , I  7/ » 
38  FORMAT  l  IN  ,  *U*  SE13.6/I 

40  FORMAT ! 1H  ,9X,'T»,  14X,2A4M 

41  FORMAT! 1H  ,«E16.6I 
00  43  1*1,  N 

WR I TE ! IOUT ,41 )  T!I»,  Y!!l 

LINS  -  LINS  ♦  1 
!F!LINS-LINSPPJ43,4?,47 
4 7  WRITE! TOUT, 361  1 RAGE 
IPAGE  •  JPAGF  ♦  1 
WRITE!! OUT »*0I  NAMF 
LINS  *  4 
43  CONTINUE 
C  FINO  LAST  M|N 

00  100  t*l,N 
J  »  N- 1  ♦! 

IF!  VIJl-  Y!  J-l  IHOO, 100, 50 
50  IFf  V!  J-l  I  -  Yfj-2nil0,l00,100 
100  CONTINUE 
no  YM1N  «  Y!  J-l  | 

T5  *  TtJ-ll 

K  -  J-t 

c  find  precffoing  max 
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DO  150  I  *  1  »K 
J  *  K-T+l 

IF(Y( J )-Y(  J- 1) >125,  1  50,  150 
125  IF(Vt J-l >-Y(J~2 1)150, 150,160 
150  CONTINUE 
160  YMAX  =  Y( J-l 1 
T4  *  Tf  J-l 9 
C  COMPUTE  TO 

TZ  *  6  .61 /O 

PEST  =  AM00(R*T4,TW0PII 
PEST  *  PF ST  -  PI 
TEMPI  =  EXP {  G* ( T5-T 4  I  1 
TEMP2  =  EXP<-A*T4) 

A2EST  *-( YMAX-YMIN*TFMP1 )/(TEMPl*FXP (- A*T5 ) +TFMP? ) 

A1EST  =(YMAX+A2FST*TEMP?)/FXP(-G*T4) 

A3EST  =  -( AlFST+A2FST»CnS(PEST) ) 

WRITE(I0UT,^6J  IPAGF 
IPAGE  =  IPAGF  ♦  1 

WRITE ( I  OUT, 200) YMI  N , YM AX , TZ  , T4  ,  T5 
WRITE!  IOUT, 2041  A, 8, G, PEST, A1EST, A?EST,D  ,  A3FST 
200  FORMAT (IH  , 9X  ,  • YMIN • , 1 1 X , • YMAX • , 1 1 X , • TO • , 1 3X, • T 4* , 13X,*T5'/ 

1  1H  ,5F16.6/1 

204  FORMAT (IH  , °X , • A • , 14X ,  • 8 • , l 4X, • G • , 1 4 X, 'P • , 14X , » A  1 • , 1 3X , • A2 « , 
113X,*0S14X,«A3»/1H  ,  8  FI  4 .4  /  1 
GO  TO  10 
ENO 

/* 

/£ 
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//  JOB  EC  3  30 

//  EXEC  FFORTRAN 

DIMENSION  THT A ( 500 1 ,  TI500),  NAME ( 2  ) 
IN*  1 
IOUT  =  3 
Pl  =  3.141593 

2  READ! I N» 101  N 
IF(N)4,3,4 

3  CALL  EXIT 

4  CONTINUE 

READ ( IN, 8 )  U,  NAME 
8  F0RMAT!F1O«5,2A4) 

10  FORMAT ( 1615) 

READ! I N, 20  )  YZ,  Till 
20  FORMA i !  2c  1 5 . 7) 

DO  30  I  =  2,N 

REAO ( IN, 20)  THT  A ( I) ,  T  f  I ) 

THTA ( I ) =  THT  A ( I ) -  Y7 

30  CONTINUF 
I PAGE=1 
LINS=6 

L INSPP=52 

WRITE! IOUT ,31 ) I  PAGE 

31  FORMAT! 1H1 , 50X , *  EC  3  30* ,40X,'PAGE' ,17/) 
IPAGE  =  IPAGE  ♦  l 
U  =  U*1 .689 
WRITE! IOUT, 32)  U 

32  FORMAT  ( l  H  ,  *U*  SF13.6/) 

WR  I  TE  t I  OUT  ,33)  NAME 

33  FORMAT ( 1H  , 9X, • T • , l 4X , ?A4/ ) 

00  36  1*1  ,  N 

WRITE!  IQUT,34)T!  I),  THTM  I  ) 

34  FORMAT ( 1 H  ,PEI6.6) 

LINS  =  LINS  +  1 
I F ( L INS-l INSPP )36, 35,35 

35  WRITF! IOUT, 3! ) TPAGF 
IPAGE  *  IPAGF  ♦  1 
WR ITE! IOUT , 33 ) NA  MF 
LINS  =  4 

)6  CONTINUE 

WRITE! IOUT, 31 )  IPAGE 
C  FIND  TIME  OF  FIRST  CROSSING 
DO  40  1*6,  N 
IF  ITMTA! !))  50,  40,40 
40  CONTINUE 
50  Y 1  *  THTA! I-l  ) 

Y2  *  THTA!!) 

XI  -  TIM) 

X?  *  T!l) 

T I  «  XU  Yl*!X?-Xll/(Yl-Y?) 

C  FIND  TIMR  OF  SECOND  CROSSING 
00  60  K*  I,  N 
IF  ITHTMK)  )60,6U,70 
60  CONTINUE 
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70  Yl  * 

THT A  IK-1 ) 

Y2  * 

THTA(K) 

XI  = 

TIK-11 

X2  * 

TIK) 

T2  * 

XI*  Yl* ( X2-X11/IY1-Y?) 

c 

COMPUTE 

PERIOD 

P  a 

T2-T1 

c 

COMPUTE 

8FTA 

BETA 

=  PI/P 

c 

COMPUTE 

PSI 

PSI  = 

BFTA*T  1-  PT/2. 

c 

COMPUTE 

T3  AND  T 4 

TEMP 

=  P/2. 

T  3  a 

T1-TFMP 

T4  = 

Tl +TEMP 

c 

FIND  Y3 

00  80 

I  =  l ,  N 

IF  (T  ( I  1-T3 180,80,00 


80  CONTIMIJc 


00  Yl  = 

THTAI 1-1 1 

Y2  = 

THTAI 11 

XI  = 

TI  I-1I 

X2  = 

Tt  11 

Y3  * 

YI*IT3-X11*(Y2-Y1)/(X?-X1 ) 

FIND  Y4 

DO  100  K  =  I , N 
IFITIK1-T4) 100,100, 110 
100  CONTINUF 
110  Yl  =  THT41K-1) 

Y 2  -  THTA(K) 

XI  *  T ( K  — 1 ) 

X?  =  TIKI 

Y4  =  Yl  ♦  < T4-X1I*! Y2-Y1 )/(  X>-X1 ) 

C  COMPUTE  ALPHA 

ALPHA  *  AL0GI-Y3/Y4 I /P 
C  COMPUTE  'i? 

A2  =  Y3/FXP(-AL°HA*T^1 
C  COMPUTF  A 1 

ai  »  -a?*  cnsipsn 

C  COMPUTE  GAMA 

rFMP  a  4?*FXP(-ALPHA*6.1*rnSIRFTA*6.-PSn 
ARG  *ITHTA1A)-TPMP1/A1 
IFIARGIl 12,1 l?,] 14 
112  GAMAN  *  10.*  ALPHA 
ALPN  *  ALPHA 

WRITE  UOUT,  1701  Al  PHA,  BET  A,  GAMAN, PS  1 ,  Al ,  A? 
GO  TO  1 2f 
1H  CONTINUF 

GAMA  «  -AL0GURG1/4. 

WRITE ( TOUT, 1701  ALPHA, RFTA, GAMA .OF  I ,AI ,A7 
TEMPI-  A1*FXP(-GAMA*T3J 
TFMP2  a  V1-TFMP1 

ALPN  =  TFMP?  /(-V4»A  1  *F  XPI-C.  AMA*T4)  ) 
ALPN  =  ALOGIALPM/P  288 
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A2N  =  TFMP?/FXP(-ALPN*T3> 

AIN  =  -COMPSI  )*  APN 

TFMP  =  A?N«>FXP<-ALPN*6.)*C0S(RETA*6.-PSn 
ARG  =  (THTA(4»-TEMP)/A1N 
IF(ARG)  121  *  121  *  122 

121  GAMAN  =  10.  *  ALPN 
GO  TO  12? 

122  GAMAN  =  -  At  CG( ARGI  /A. 

125  CONTINUE 

WRITE! I OUT,  170) ALPN,  BETA, GAMAN, PS  I » AIN, A2N 

126  CONTINUF 

C  FIND  MAX  ORO 

DO  130  J=  P ,  N 

I F  (  THTA(  JJ-THTAI  J+l  Ml  30  *130, 140 
130  CONTINUE 
140  T3P  =  T(J) 

Y3P  *  THTA(J) 

C  FIND  MIN  ORO 

on  150  K=  J, N 
I F ( THT  A  ( K ) ) 145,150,150 
145  IF (THT AIK ) -THT A (K+l M 160, 150, 150 
150  CONTINUE 
1 60  T4P  =  TIKI 

Y4P  =  THTA(K I 

A2  =Y3P/(-C0S(PSn  *FXP(-GAMAN*T3P)  +  FXP(-ALPN*T3P»* 
1C0S(BFTA*T3P-PSI  I) 

a i  *  -ap*cos(p5M 

WR  I TF (  inUT,170)  ALPNfBFTA,GAMAN,PSl,Al,A? 

170  FORMAT (//1H  , 9X, • A • , 15X, «B • , 1 5X , *6 » , 1 5X , * P • , 1 6X , • A  1 • , 1 4X  ,  • A2 • // 
11H  , 6F16.6//) 

GO  TP  2 

FND 
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//  JOB  EC310 

//  EXEC  FFORTRAN 

DIMENS ION  T ( 500) »  Y(500),  XUO) 

DIMENSION  BUFF ( 3000  )  *  FCN1I500),  IV  f  2  > 

COMMON  T»Y,NPTS,FCN1 tISWl 
IN  *  1 
I  CUT  =  3 
IOPEN  =  0 

3  CONTINUE 
LINS  = 

LINSPP  =  5? 

READ! IN,  5 )  N,  NUMSIG,  MAXIT,  IPRINT,  NPTS,  ISWl,  IPLOT 

5  T-CRMATI 1615 ) 

I F ( IPLOT )6, P, 6 

6  IFIIOPFN)  R,7,« 

7  CALL  PLOTSIBUFF,  12000,  71 
IOPEN  =  1 

8  CONTINUE 

IF  INI  20, 10, ?0 
10  CONTINUE 

I F ( IOPEN) 12,15,12 
12  CONTINUF 

CALL  PL0TI6, 0,0. 0,909) 

15  CONTINUE 
CALL  EXIT 
20  CONTINUF 

READ! I N, 22 )  U,  IY 
22  FORMAT(F10.5,2A4) 

U  =  U*l .689 

REACI  IN,  25)  ARG,  TUI 

Y  (1)  *  0. 

DO  30  T  =  * , NPTS 
READ! IN, 25  )  Y( I  I ,T( I ) 

Y( I)  =  Y(I)  -  ARG 
25  FORMAT ( 2E 1 5. 7) 

30  CONTINUE 

C  READ  INITIAL  A,  R,  0,  P,  A 1 v  A?,  0,  A3 
READ! ! N, 38  )  (XII) ,  I  *  l,P) 

35  FORMAT (RFIO. 5) 

IF  USWI  )40, 32,40 
32  CONTINUE 

CALL  SYSTEM (N»  NUMSIG,  "AXIT,  IP»INT,  X) 
t  SNl *1 
AO  CONTINU* 

CALL  AUXFCNIX,DUM, IOUM) 

00  RO  I  «  ! ,  NPTS 
IFU  INSPP  -  l  INS ) 42, 42, 44 
42  LINS  *  0 

WRITE  1 10UT,  44) 1XIKI  ,K*1 ,«) 

44  FORMAT  f  1H1.CX, • A» , 1 *X, *R«, 1«X. *G» ,15X  •P»,lS>f,,Al»,lAWt,A2,,l4<, 
1  *0  *  * l 5X  »  *  A3 • / 1 M  ,RU6.6,//1M  ,  14X,  «T» ,  19X, • YF» t )4X, *YT»/) 

46  CONTINUF 

HRITfimiT,  4R)  MI),  FCN 1 II),  Yl  I) 

UNS  *  LINS  ♦  ) 
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43  FORMAT ( l H  ,3£20.6) 

RO  CONTINUE 

IF t  IPLOTJ  50,  3,  50 
50  CONTINUE 

CALL  FCNPLT<T,F'N1,Y,NPTS,X,U,P,  IY) 
WRITEUOUT,R0> 

90  FORMAT  f l HI ) 

GO  TO  3 
END 
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SUBROUTINE  FCNPLTIX,  YF,  YT,  N,  VAR,  II,  NVAR,  IYI 
DIMENSION  VAR  I 1 I 

DIMENSION  Kill,  YF ( 1 ) ,  YT(1),  OUMXI2),  OUMYI 2 ) 
DIMENSION  ITAB(3),  IFITI2I,  IWKI10),  IY(l) 

IU  =1 HE  XI 14,4,4,0, 7, 14, 4,0) 

IWK  111* IHEXI 12, 1,4,0,7,14,4,0) 

IWK(2)*lHEX( 12,2,4,0,7,14,4,0) 

I WK I  3)* IHEXI 12,7,4,0,7,14,4,0) 

IWK  14)* IHEXI 13,7,4,0,7,14,4,0) 

IWKI5)*I HE XI12, 1,13,1,7, 14, 4,0) 

IWK (6)* IHEXI 12, 1,15,2,7,14,4,0) 

I  WK 1 7  )* I  HEX (12,4,4  0,7, 14,4,0) 

I WKI fl ) *IHE XI 12, 1,15,3,7,14,4,0) 

IDSH* THE  XI 6, 0,6, 0,6, 0,4,0) 

I  TABID  =  I  HEX  1 14,3, 1 7,1, 12, 2, 14, 4) 

ITAB(7)=IHFX( 13,3,12,1 ,14,3,12,5) 

IT AB I  3 )= I  HEX  1 12, 4, 4, 0,4, 0,4,0) 
IFIT(1)=IHFX(12,6,12,9,14,3,14,3> 
l  FIT! 2  )= IHEXI 12,5, 12,4,4,0,4,0) 

IX*  IHEXI 14,3,4,0,4,0,4,0) 

D I V*20, 

dumxi i )  =  x( i  , 

0UMXI2)  =  X(N) 

ymax*-9<?9. 

YMiN=qqq. 
no  100  !=■!  ,M 

IFIYFI I)-YMAX)40»40»30 
10  YMAX=YF( I ) 

40  IFIYFI ! I-YMIN)50, 60,40 
40  YMIN=YF( I | 

60  IFIYTII )-YVAX)P0,«0,70 
70  YMA  X= YT I ! ) 

«0  IFIYTI  I  J-YHIMSO,  IOC,  100 
70  YMI N* YT ( I) 

100  rONTINUF 

DUMYI1  )  *  Y  M I N 

niiMVI  ■>  )  =Y*A  X 

CALL  Pinrio. 0,1. 0,331 

CALL  SCALE! DU^X ,3.4,2, 1 , n iv , 2 ) 

CALL  SCALF(DUMY,6.0,?,1  ,-HV,D 

CALL  AXIS(6.C,0.0, ! X,-4,fl.4,Qp. 0,niV,2) 

CALL  4X|S|4.0,0.0,TY,8,6.0, 1P0.,niv, 1 ) 

HIGH  *  .134 
STR*  ,4 
XH  *  6.4 

CALL  S  YMRQl.  (  STR  ,XH,HIGH,I  U,9Q.0,--.| 

CALL  NUMBER ( -0. 0,-0. 0,-0. 0,0, 90., 7) 

YH  *  STR  ♦  .25 
DO  DO  f  *  I.,  NVAR 
IFIVARfD)  105,111,105 
105  CONTINUE 

CALL  SYM«m  I YH, XH,  HIGH, IWK (II ,00.0,  4) 

CAU  NUMBER  (-0.0,  -0.0,  -7.0,  VARI  I  1,30.0,  M 
YH  =  YH  ♦  ,?4 
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110  CONTINUE 

111  CONTINUE 

CALL  SYMBOL ( YH,  XH»  HIGH,  IOSH,  90.0,  4) 

CALL  SYMB3L<-0.0,-0.0,-0.0,  ITAB,  90.0,  1?) 
YH  =  YH  ♦  .125 
CALL  PLOT ( YH, XH,  9) 

CALL  »>LCTCYH,XH  +  .M?5,?1 
YH=  YH+.125 

CALL  SYMBOL  f YH,  XH*.5,  HIGH,  IFIT,  90.0, P) 
00  120  t  =  1 , N 
YT ( I )  =  —  Y T (  I) 

YF(  I)  =  -YF (  II 
120  CONTINUE 

CALL  LINE(RMIN,DL, 0,-1, 1,0) 

RMIN  =  -<RMIN*OL*ft.O) 

CALL  LI NE (RMIN, OL, 0,1,1 ,0) 

CALL  L INE( YT, X,  N,  1,  0,0S0500) 

CALL  L I NF ( YF , X,  N,  1 ,  0,  0) 

C  ALL  PLOT(  B.5,-1.0,-23) 

RETURN 

END 
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SUBROUT  IN£  AUXFCNl  X,  F,  K) 
DIMENSION  T ( 500 )  ,  YI500),  XII) 
COMMON  T» Y, NPTSf FCN 1  1  500) , I SW1 
a*  xm 

fla  XI  2) 

G*  XI  3) 

P*  X  ( 4 ) 

A  1* XI  8) 

A2*X(6) 

n  =  x  ( 7 ) 

A  3=  X<8) 

F=0. 

DO  80  I =1 , NPTS 
AT*“A*T( I ) 

BT®B*T I  I ) 

GT*-G*T ( I ) 

DT*  - D*T (  I  ) 

FAT*FXP I  AT  ) 

EGT=EXP(GT) 

EOT  =  FXPIDT) 

T 1 =8T-P 
CSN=COS(  Tl) 

SSN»S IN ( T 1  ) 

T2=EAT0CSN 

T3=A2*T? 

T4= A1*FGT 

T5=A?*EAT*SSN 

T 6  *  A 3*FDT 

FCN  =  T4+T3+T6  -Y( I  ) 

IF! ISWl)2,4,? 

2  FCN  1 1  I  )  =  T4  +  T3+  T6 
GO  TO  <*0 
4  CONTINUF 

GO  10  (10,20,30,40,60,6^,62,64),  K 
13  CONTINUF 

PAR=-T<  I  )  *T? 

GO  TO 

20  CONTINUF 

PAR=-T( I ) *  T  c 
GO  TO  70 
30  CONTINUF 

PAR  =- T ( I ) *T4 
GO  TO  70 
40  CONTINUF 
PAR=  TS 
GO  TO  70 
SO  CONTINUE 
PAR  *FGT 
GO  TO  20 
60  CONTINUF 
PAR  xT  5 
GO  TO  7 Q 
62  CONTINUF 

PAR  =  -Til  )  *  T  6 
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161  CALL  AUXFCN(X,FPLUS,K1 
PART  I ITEMP 1* (FPLUS-F 1  /  H 
XI I  TEMP) =HOLD 

IF! ABSI PART ( ITEMP 1 ) 1  305,310,305 
305  IF  I  ABSIF/PART ( I TEMP  I 1  -  1.0E+201  200,200,310 

310  ITALLY*I TALLY*  1 
200  CONTINUE 

IF ( ITALLY  -  N  ♦  K ) 202 , 202 , 31 1 

311  CONTINUE 
FACTOR* FACTOR* 10  .0 
I F ( FACTOR  -  .151  135,135,775 

20?  IF(K  -  Nl  203,312,312 

312  CONTINUE 

IF(  ABS<  PART ( I  TEMP) 1  1313,775,312 

313  CONTINUE 
COE(K,N*11»0.0 
KMAX=I  TEMP 
GO  TO  500 

FIND  PARTIAL  DERIVATIVE  OF  LARGEST  ABSOLUTF  VALUE. 

203  KMAX*LOOKUP(K,K) 

DERMAX=ABS(  PARTI  KMAX I  ) 

KPLUS*K*l 
00  210  I "KPLUS , N 
JSUB*LOOKUP(K, I  I 
TEST»A8SCPART(JSUB)  I 
I  F ( TEST-OERMAX l  209,314,314 

314  CONTINUE 
oermax=tfst 
LOOKUP! KPLUS , I 1 =KMAX 
KMAX= JSUB 
GO  TO  ?10 

?09  LOOKUP (KPL US , 1 1  * JSUB 
210  CONTINUE 

IF (ABSI PART IKMAX 11 1315,775,315 

315  CONTINUE 

SET  UP  COEFFICIENTS  FOP  KTH  ROW  OF  TRIANGULAR  LINEAR  SYSTEM  USED 
TO  BACK- SOLVE  FOR  THE  FIRST  K  XIII  VALUES. 

I  SUB ( K 1 *KMAX 
COF(K,N*1)«0. 

DO  220  J "KPLUS , N 
JSUB "LOOKUP I KPLUS ,J 1 
COE  IK, JSUB 1 "-PART!  JSUB 1 /PART IKMAX1 
COF (K,N*l 1«C0E(K,N*1 )*PART! JSUBI*X{ JSUB! 

2?0  CONTINUE 

500  COE(K,N*l 1*1  COE (K,N*1)-F)/PART(KMAX1*X(KMAX1 
C  BACK  SUBSTITUTE  TO  OBTAIN  NFXT  APPROXIMATION  TO  X. 


XIKPAX 1-COF (N,N*l 1 
IF  I N  -  11316,610,316 
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316  CONT  I NIJE 

call  r ac k ( n-i, n,x,i sub, cof, lookup) 

MO  IF(  M-  1  )  6  50,  650,  675 

r 

C  TEST  FOR  CONVERGENCE . 

r 

625  no  630  1=1  ,N 

IFIABSK  TEMP(I)-XU)  ) /XU  >  ) -P<"1  CON)  630,630,649 
630  CONTINUE 

JTEST=JTEST+] 

IFIJTFST- 3)650,735, 7 ?5 

649  JTEST=1 

650  no  660  1*1, N 
66C  TEMPI l  )  =  x;  I  ) 

700  CONTINUE 

725  IF( IPRINT-1 )  800 , 31 7,800 

317  CONTINUE 

DO  750  K= 1 , N 

CALL  AtJXFCN<X,PART(K)  ,K) 

750  CONTINUE 

WRITE (K OUT, 751 )  ( PART ( K ) , K* 1 , N ) 

751  FORMAT!//'  FUNCTION  VALUES  EVALUATED  AT  FINAL  APPROXIMATION  FDI  LO 
1W  * / / f  6 E70  •  3  )  ) 

GO  TO  «00 

775  WRITE(K0UTt776) 

776  FORMAT  (/20X,  7 1 HMOD I  FIFO  JACOB! AN  IS  SINGUtAP.  try  A  DIFFERENT  I 

1 NI T  IAL  APPROXIMATION.  ) 

«00  RETURN 
FND 
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SUBROUTINE  BACK  ( KMI N, N, Xf I  SUB tCOE , LOOKUP) 

THIS  SUBROUTINE  BACK-SOLVES  THE  FIRST  KMIN  ROWS  OF  A  TR I ANGULAR  12 E 
D  LINEAR  SYSTEM  FOR  IMPROVED  X  VALUES  IN  TERMS  PREVIOUS  ONES. 

DIMENSION  XI 30 ) t ISUB (30) ,COE ( 30 ,31 I , LOOKUP! 30, 30) 

DO  200  KKMtKMIN 
KM*KMI N-KK+2 
KMAX=I SUB l KM-1 ) 

X ( KMAX  1  =  0.0 
DO  100  J=KM,N 
JSUB=LOOKUPCKM, JI 

X(KMAXI  =  X(KMAXM-C0E(KM-1,JSUB)*X?  JSUB) 

100  CONTINUE 

X(KMAX)  =  X(KMAX)«-C0E(KM-1,NM) 

200  CONTINUE 
RETURN 
END 


NAVTRADEVCEN  66-C-0050-2 

0l/U/6«  AMTOPLOM  Cma#T  SFT  -  FCM>  NAvT®l"rvrf*  M-C-nOSO-? 

CHUT  ?|U*  -  MOCfOtlMS 


CNMT  TITtt 


NAVTRADEVCEI  68-C-0050-2 

tUTOPlOH  CHA AT  TIT  -  IC9I0 


NAVTAAWVCPn  64-C-OO40-? 


•  PinrtnijM* 


01.94— >• 
I 


01 


I  I  H 

IT  I  4UIPCN  H 

I.  I  ll'lfcfN*  t(1U«l  M 

10  |  H 

111  M 


I 


I  nnrt  o? 

• 

• 

Mo.  in  nn  ioo*  « 

• 

• 

•0  !  ■  1  ,  HPJ%  • 

1 

1  < . . 

•--4 

•  OS 

1 

•  • 

| 

•  • 

I 

1  ♦»  •  • 

| 

— • 

•  IIHSM  -  l\HS  • 

J 

•  # 

1 

•  • 

I 

•  • 

| 

• 

1 

1  1-/01 

1 

1 

1 

1 

1 

I 

4?  1  C4 

I 

1 

• 

I 

1 

| 

1 

U*<  •  0  1 

i 

1 

•o  •  u 

• 

1 

1 

•  • 

1 

l 

1 

•  • 

! 

i 

1 

no 

•  • 

1  0« 

1 

4- 

■  ••*4 

pho  m  • 

i 

•  l*0*t  • 

/  wjt'1  tn  o-v  / 

1 

•  • 

/  lour  / 

l 

•  • 

/  vu  rr»*44T  t 

i 

• 

44  / 

i 

1  < 

/ 

frm  tnc  us?  t 

1 

i 

1 

1 

1 

|  nr  ti  *>* 

i 

1 

1 

1 

• 

1 1*?  •  •  • 

i 

4  1? 

• 

1.4|  • 

i 

•  4 

• 

i 

•  • 

1 

i 

•  4  |f 

.... 

i 

• 

in*?  4-4 

“■  1  HO?  f  r  * 

i 

•  •  1 

• 

i 

•  •  1 

• 

C'M?tnuf  • 

i 

•  •  1 

• 

l 

•  ... 

1 

1 

II-/41  .  1 

1 

i 

1  .  n> 

j 

» 

1 

/  HtITf  ?n  VfV  / 

1 

1 

/  1  'HIT  t 

» 

1 

9  VI*  »  M4|f  9 

i 

4^  i  hit?  n 

/ 

44  / 

i 

•  4 

t 

M|*l  int  US?  » 

1 

• 

C"H?|N»**  1 

1 

1 

1  HOT?  r-l 

» 

1 

i 

1 

1 

1  14 

4 

1 

• 

IIM  *  1(11,  • 

» 

t 

H 

• 

rrnMii,  Till  • 

1 

14 

*f  4m  •  m 

• 

l 

t. 

n.pfm.v.  m 

l 

l 

10 

i*i  m 

i 

1 

n 

m 

»  »o 

i 

•••« 

« - 

i 

1 

1 

inn  •  i ins  4  i  i 

1 

| 

•  - 

j 

1  »4 

i 

i 

/  9 

. ............ 

-• 

•#!?»  »«  MV  9 

t 

|OMt  9 

9 

*|4  •«*»!  t 

9 

4*  / 

.  1,0*. 
...  ' 


305 


NAVTRADEVCEN  68-C-00$0-2 

AUTORtOM  CHMT  5IT  -  fdlO  Mm*»OI¥C*N  4M-C-OO90-1 


CM**  I  TltLl  -  SUMOUTI M  *CM*tT  <*,¥*, TT  ,M.  ¥*».!».  N¥A* .  IT  I 


I  I  M 

t  I  STMMOt  M 

I  I  IVM.UM.MIGM,  M 

I  t  IlMfll. *0.0.41  M 

I  I  M 

1 

I 

f  0? 

I  I  N 

I  |  MU'MR  M 

I  I  1-0.0.  -  M 

I  !  0.0.  -  M 

I  |  O.O.VUUI,  M 

I  I  00.0. M  H 


I 

1  O' 

VM  •  VH  •  ,?9  I 


•  MO 

f*n  or  no 
ton*?  •  | 


•  coMMuur 


MCTf  ns 

•  •  •  • 


STM* 01 

IVM.KM.Mtr.M. 

tP9H,‘)A,0.*| 


t  5V*"»H  h 

\  1-0.  '1,  -  M 

I  0.',  -  M 

I  0.0.  1?4M, •*>.<>.  M 

I  »M 


VM  .  *U  •  ,IM 


IVM.VM.  'I 


I  M 

I  RIOT  H 

|  (VM.RM  ♦  M 

I  .SIM.?)  M 

I  M 


I  II 

— 

*  .1*9  I 


M 

ST  MOOt  M 

IVM.XM  ♦  M 

•M.NlGM.tRIT.  M 

90.0.M  M 


I  MOT*  IS 


R*r.iM  no  too* 

i  •  l.  m 


|  VTHI  •  -  TTI 1 1 
I 

I  f*MI  •  -  T*M  I 


r**o  00 
inn*? 


I 

I  LIMf 

I  ("MIN.Ot.O.  - 
I  l.t.OI 

I 


1 

1 

!  T  | 

1 

1 

1 

1 

IIM* 

•  *»¥  •  -  ti«IM  • 

i  i 

1 

» 

'1MW  1 

i  i 

\ 

1 

1 

» 

i 

» 

1 

1 

n  i 

1 

1 

M  t 

1 

1 

1  1 1  Ml 

M  I 

1 

1 

t  »M» 

1  t'MtMiM.Ott. 

*  1 

1 

1 

*  *•  .t.M.I  .1.01 

1  I.Ot 

M  | 

1 

» 

1 

M  | 

1 

1 

**n» 

•«,».  -  I ,9. 

Ml 


30? 


*  M|f 


Ot/U/it 


NAVTRADEVCEN  68-C-00$0-2 

AUTVlOu  CM«T  Iff  -  ICIIO  MVfMOfVCM  A0-C-009*-? 


CHUT  TlTtf  -  SUMOOTIMf  ftftf  I 


AUIRCO  / 


5 

OJ.OI---M 

I 


*  -  >1111 
•  •  It?) 

c  •  mi 

P  •  II 41 
*1  •  nai 
i*  •  MAI 


o  •  iff » 

n  ■  ill) 

t  « 


I 

i 

I  *OTf 

*•••«•••• 

•  IIC I  K  "0  I00» 

•  «0  t  •  If  MTI 

I 

c**n— >i 


c* 

•  • 


AT  •  -  *  •  T |  |  » 

*T  f | > 

t* t  .  -  '•.•Tin 

Of  •  -  T*Ttt» 

I 

I 

1 


TAT  >  M*HM 
t  r»T  »  nur.M 
TOT  . 

T 1  •  T  -  0 


ct*  *  rotmi 

\\H  •  l|Ht  * | » 
tf  - 

M  .  »;tn 

»*  *  ***|C.f 

I 

I 


•  r  *  •  1 4  •  ft  i 
»4  tt|* 


t\»t  * . . 


•  * 

t  I  I 


->• 

1  H'lTf 


r  ’!«•••»» \  *  f.T 


»»  (HiMI'l 


A  .  • 

I  *t* 


*0 

*r- 


/ 


j  M9Tt  '*• 

•  CONTI  M  W  f  # 

M  «  »»  I  *  f  t  f  t 

-  J* 

i  n 


|  MR 


TIIIAfl 


» 

t 

I 


*.  t.ot! 
...  TO 


/  10  / 


r»T, 1 1 - >| 

I  Wf  I* 

•  nNTlNIlf  • 


Ml  • 


I 

I 

I  If 

. . 

-  f  I  DMA  | 


I 

I 

I 


A. OR. 

...  f*) 


/  AO  / 


CT.' 

1 

■  1---M 

1  *nrr 

1  A 

• 

•  •  ( 

<"»»»»  tm* 

»•••••• 

• 

•  • 

1 

t 

1  > 

I  III  •  M  | 

I 

I 


306 


OVU/H 
CH«t  ?|U« 


NAVTOADEVCEN  68-0-0050-2 

AUTOHO*  CNARt  5IT  -  TMW  NATTMOTVCW  40-00000"  T 


lUAtflUTIA?  ftjftf'IHK.T'RI 


OT.II— >1 

I  N37T  01 


0> 

I 


TO 


/  40  / 

I 

|  — >| 

I  *0T« 

•  ••••• 

rim  tioht 


04 

I 


I 


/  M  / 

«...  7"  *" 

OT.II— >1 

»  WOT?  07 

•  crwttoff  • 

I 

1 

I  M 

|  04*  «  TOT  | 

I 

TO  |  OOTf  ©• 

•  COOT  |  OUT  * 

I 

» 

»  to 

t  f  •  9  .  TCtHMM  I 

0T#  00—  >5 
I 

*4  •  U 


T«®  or  no 
tnn*f 
•  * 

•  • 

|»M 

I 

I 

I 

I  It 

•  Tftt  • 


I 

I 

I 

.  1 
.  04 


309 


NAVTRADEVCEN  68-C-005^-2 


M/ll/M 


AMTOHOM  CMAHT  $(T  -  (CllO  NAVT*Mnf  VGIIN  AN-C-0010-’ 


CHMT  tttt>  -  SUM  OUT  IN'  SMTtNlNfNUn*MUNMtT,tr*  tNT,|| 


/  mti*  / 


01.14— >• 

i- 

- ->. 

10.  1  V--># 

T.H  SUMOUTlHf 

• 

tnx!  »  min  w 

i 

/  NO  IT  (  TO  DtV 

t 

11  1 

H 

ttmiMtiw  mm 

1 

t  (OUT 

/ 

H  1  BACK 

H 

in**«  ttuitiro. 

i 

/  VIA  F0NN4T 

I.  1  tI.tN,N,«, 

H 

t 

/  M  / 

10  1  isui.cnt, 

N 

1 

t  WON  TNI  LIST  / 

It  t  iookum 

N 

| 

| 

1 

F01L0N. 

1 

1 

1 

1 

1  NOT  F 

07 

i 

1 

• 

S(T  UP  ^  .ATIAL 

1 

•  hit  •  Ni« 

• 

OCMVATtVFS  OF  KTM 

N  •  NU*4f •  or 

1 

•  mi  lit  •  uni 

4 

FUNCTION. 

HUITIMI  1  •  IPMM 

1 

| 

or  ununonnm. 

1 

l 

mmiio  •  mmtfa  w 

♦  - 

| 

)  14  1 

11 

S  ION  1 F  1C  ANT  DIGITS 

1 

1 

V  1  NOT* 

00 

| 

9 - - - - - 

— • 

D(S!«fn. 

1 

1 

• 

| 

|  | 

H 

NA*|T  •  Mi  H  Nil* 

1 

f 

f  1(0 1 a  00  loot 

• 

1 

IT  |  4JIFCN 

M 

«»*«•  OF  ITfiiTirW 

1 

1 

•  10  J  •  It  N 

4 

| 

M 

TO  If  ALLOtff 0. 

1 

1 

| 

10  1 

WIN?  ■  OUTPUT 

1 

1 

1 

j 

0»T10»,  nuf»i|f  If  ■  1 

1 

1 

t<-— - 

| 

*  •  VfCTON  Of  INITtn 

I 

1 

to  1 

ON 

| 

J 

| 

wmfi. 

1 

i 

-• 

i 

1 

1 

1 

i  iohkuhkji  •  j 

1 

1 

1 

1 

14 

1 

1 

i 

\ 

1 

OUTPUT 

I 

I 

fflun*. 

1 

1 

i 

1 

1 

1 

1 

1 

•  10 

| 

1 

it,  i 

1 

1 

•  4 

1 

1 

> t*  i 

IT 

1 

1 

•  4 

1 

1 

a - - - - ..... 

-  a 

N*7|  Ta»;.|«M«  '’F 

1 

1 

•  9 

NO 

1 

1 

1  1  Mil  V  •  * 

I 

TT  p.f  lon^  *lSfr. 

1 

1 

•  mn  o*  on  9 

1 

a--. - .... - 

«  a  ^niuT*nN  rt  mr 

I 

1 

•  1004?  • 

1 

I 

SV*Tf*  (P»  4*<T 

1 

I 

9  9 

| 

|Nt*  Ton 

1 

1 

9  9 

1 

|M«»' '*> , 

1 

1 

9 

1 

• 

1 

I 

»v«s 

1 

•  4-  in  no  i  l  ip 

9 

• 

1 

» 

1 

1 

•  '  "  1  »  >  .  N 

9 

1  m 

1 

1 

» 

1 

1 

1 

1  -  I 

1 

1 

I 

1 

♦  1  . 

1  l  -nu*M  *  l 

1 

1 

i 

1 

1 

I" 

1  1 

1 

1 

1 

1 

a. - -  .......... 

-  a 

\  JT*U  .  \  | 

1 

\ 

TM«  1*9  tv  i  nn«"» 

1 

\  jrtan  - 

1 

1  1 

1 

1 

*•'••! 'I  t  *tM|4t 

1 

|  i  i  t*  tan  .  j  i 

l 

1  KM»  a  •  | 

1 

1 

®i  v  i» l*i ;  f  r t  «r  t 

1 

1 

1 

1 

1 

mi  Turvi*  hivin'; 

1 

I  »«  '<  II  |  trap  y 

1 

1 

I 

I 

n  •Ht*;  ic*i  i  v 

1 

1 

1 

1 

1 

1 

|«.*F  tn*<  'T* 

1 

I  h  •.  i  ’.anip 

1 

I  f. 

1 

1 

r  mj*N<, 

1 

a---- . -  -  - - 

-a 

•  n»r.iN  trrr  • 

. 

• 

| 

1 

•  .  *mv i t  • 

1 

1 

1  NOT r 

1 

l 

i 

1 

1 

•  ■'  .IN  o  :  |P‘ii» 

1 

a  a 

i  ' .  — -'l 

1 

1 

•  4P->  «  m  1  ,  It 

1 

*  a 

» 

1 

1 

1 

•  a  f 

-/a  I 

* 

1 

1 

i 

1 

•  a 

— 

•  ■ 

1 

• 

'  ?.l  .  xt 

1 

•  a 

•  * 

1 

* 

1 

a  a 

•  •  i  -/  * 

i 

•  ' 

1 

a  a 

•  i v  -  • — 

» 

a  * 

1 

a 

•  • 

1 

•  a 

l 

1  1  '  1 

*  • 

1 

•  •  1 

/  1 

l 

1 

♦  « 

1 

•  «  -  1  * 

.... 

1 

• 

1 

•  a 

1 

•  »  \ 

1 

a  a 

1 

i 

1 

1 

•  t 

• 

1 

»  '•  1 

'1 

i 

1 

1  1*1 

*.  -  - - .... 

-a 

i 

I 

1 

1  *♦  4  .*>’ 

\ 

i 

1 

1 

* . . . 

a 

*  *  f  V  *'  u 

1 

1 

1 

•  CON*t“«  •  • 

1 

» 

*  '  |  H  i» 

,, 

1 

t  *1  1 

i 

a 

I 

» 

a-.... . . 

a 

»  ■  'N»  In*** 

a 

I 

I 

1  «*UN  *  -  1 

1 

a 

I 

1 

a-  . . - . 

a 

1 

a ...  ...  .. 

» 

I 

♦ 

I  *1  *•  •  t  I 

1 

t 

1 

1 

1 

1 

1 

l  / 

1  t 

t 

1 

. 

M  *4 

own/**  4 

cha*t  title  -  suHmjTiNP  mtf milt w* !•••*! i ? # i m int *« » 


NAVTRADEVCEN  68-C-0050-2 

*UTO* i * *lOM  CHUT  IIT  -  WHO  NAVTMDEVC1N  H-C-00*0-f 


10.21— >• 

i  01 

— - — . . 

|  XI  IT!** I  •  HOin  ♦  I 

I  H  1 


•  0? 

•  • 


MCK 

(KNiN.N.  t, 
t  Aii*,rnf , 
ITOKIJEI 


MUFCN 


(  *AimrrFO>  *  i 
I  iFU'is  -  n/w  i 

\  ! 

I  *t  If*  •  *01"  \ 


ANttfA** 

•  |tT(*«|l  • 


•  A%m/*4*T  •  1***1 

tl  non  *  - - 

«  l.v  *  >ft  • 


I  IT4LIY  -  (Till*  •  I 

I  1  I 


•  rN''  f*n 

•  inof?  •  | 

•  •  I 


|YM  .  10  . 


•  I-/”** 


•  4 

1  4  4 

• 

•  • 

r iin?  inii* 

*  i  «  •  i  «  i 

4 

1  4  * 

1 

1 

w 

1 

Mf"'«  • 

1 

* 4C»n**» *■“.  > 

1 

....4 

«  *  I  -/  ’I 

•  :  li  T*»  <  .!»  •- * 

•  4  I 

•  *  I 


II  >/ ♦  I 
I 
1 
I 
I 
1 

n  ?  i  *nr- 

Uf 


•  n  m  »‘»n 


.  i.’  . 

I  .  o#  . 

I  *»' 

I 

i 

Mi  l  mt*  1’ 

•  frtV!N'l«  • 


C  J  NT*  FA*T|Al 
0€MV*T|V*  0*  LATEST 
AUSflUlTf  V*U*. 


K«U  • 

inniti»pu»«i 


I  AB$<M«m*4Xn  I 

I  J 

i  mu*  «  x  ♦  i  I 


»  NOTE  20 

«  i*f o in  "n  mo  • 

•  *10  |  •  A#  I  lit  •  N  • 


i  ?.  — >  | 

i  n 

. . • 

jtui  *  I 

ion«»>m»ii  I 

J 

trsf  .  f 

JVi*M  I 


*  4  t-» 

•  rur  -  manat  •-* 

•  •  ! 

•  •  I 


|IM»>  .  1»  » 
I  ,  Cl  , 

I  .... 

I  ?0« 


4  |  HIM  21 

•  4444444 

r'HiTlltlff  • 


i  niimi  .  f*M  • 

I  I 

|  inrtct)»l*n  Il\»  11*1 

|  IMI  I 

I  1 

|  *«•«  •  .|VI*  » 

• . . 

* 


... 


311 


4.»P 


OJCIl/tl 


NAVTRADEVCEN  68-C-0050-2 

•urofiOK  chi.t  $ft  -  echo  N»vTtnnf»rE«  m-c-ohio-1 


Cum  title  -  siM'nuT in?  vrm.iN.«iii*ir..wmr,iMiNTtit 
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//  job  ectqo 

//  EXEC  FFQRTRAN 

DIMENSION  Yf  n)  ♦  U  (12) 

OIMFNSTON  SAVEMOO,  16),  I L  OC  (1  6 )  t  BUFF(ROOO) 

RFAl  IX, TY, T  7 ,  IXY,  JXZ, TY7 

r 

COMMON  H,  UMAX,  H*  I N ,  DM,  FCT,  fL,  NC,S,  N,  IS),  MPNT 


r 

r 

r 

r 

r 

r 

r 

r 

r 

r 

r 

r 

r 

r 

r 

r 


COMMON  HIM, 

QHnt?,  PHOI.**,  RH0L4,  RHOLS,  WMR,  FT  A,  FT  AM  1 , 

ISW? 

COMMON 

1 

XOO,  XRR ,  XRP,  XUO,  XVR  ,XWO,  XUt),  XVV, 

XWW,  XOO0R,  XOSOS,  XDROB ,  XVVE,  XWWF,  XORDRF, 

xnsosF 

COMMON 

1 

2 

YRO,  YPO,  Y P A P ,  YPQ,  YQR,  Y VO,  YVO,  YWP, 

YWR,  YB,  Y P,  YAPOR,  YVAR,  YSTR ,  YV,  YVAV, 

YVW,  YOR ,  YRF,  YVF ,  YVAVF,  YORF 

COM MOM 

1 

? 

ZOO,  ZPP,  7 R R ,  7RR,  ZWD,  7 VR ,  ZVP,  70, 

ZAOOS,  Z WAO,  ZSTR,  7W,  ZWAW,  7 A W,  ZWW,  7  VV  * 
70S,  ZOR,  70F,  ZWF,  ZWAWF,  ZOSF 

COMMON 

1 

? 

AKPO,  AKRO,  AKQR,  AKPQ,  AKPAP,  AKP,  AKR,  AKVD, 

AKVO,  AKWP ,  AKWP,  AKSTR,  AKV,  AKVAV,  AKVW,  AKOR, 
AKSTRF 

COMMON 

l 

~> 

AMQO,  AMPP,  AMop,  AMRP,  AMQAO,  AMWO,  AMVR,  AMVP, 

AMO,  AMAQOS,  AMAWO,  AMSTR,  AMW ,  AMWAW,  AMAW,  AMWW, 
AMVV,  AMOS,  AMOp,  AMQF ,  AM WF ,  AMWAWF ,  A  MDSF 

COMMON 

1 

ANRD,  ANOn,  ANPQ,  ANOR ,  ANRAR,  AN  VO,  ANWR,  ANWD , 
ANVO,  ANP,  ANR,  ANAROR,  AN A VP ,  ANSTR ,  ANV,  ANVAV, 
ANVW,  ANOR,  ANPT,  ANVF ,  ANVAVF,  ANORF 

COMMON 

TX,  IY,  17,  TXY,  TX7,  TY7 

COMMON 

r.w,  CP,  UC,  XR,  VR,  ZR 

COMMON 

OP,  OS,  OR,  PHO,  AL,  AM 

COMMON 

OR  MAX,  FTAHt,  TTAIO,  All,  M2,  A 

COMMON 

A  ? 1 ,  A??,  APR,  A»l,  A32,  ART 

COM von 

xc,  ycm  zc. 

CO'  ION 

IlOC,  !  PL  07,  I  o  UN  ,  inPFN,  NPIT.TOPT 

COMMON 

Y 

COMMON  HMC,  Bit  r'FtTMA,  SWMAX,  P?t  OFlTMf,  OSF,  opr,  ICYr,  NS, 
1  INTSW 


44  rONTl*"i|C 
FAIL  INPUT 
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r 

c  compute  oho  *  t.  rnNSTA^Ts 
c 

RHOH  =  RHD  * 

RHfH?  =  PHflH  *  Al  *  M 
PHOL3  =  RHOL  ?  *  Al 
PHOLA  =  PMOL”*  *  A! 

RHOL*'  =  PHnl  4  *  Al. 
r 

C  WR1TF  OUT  HYTJnnYNAMIC  C.nFrr  If  1  PL'TS 
CALL  WOTTP 
T  =  1  . 

XPROR=  RMHI .  ?#xnOHR*T 
XDSOS=  °Hq|  ?*xnsns*T 
XDBDB  =  OHm  ?*xnPOA<'  T 
AH  =  oqnL’*  All  *T 
A  1  ?  =  OH^|  ?*  A  1  ?  *T 
A 1 3  =  RHOL  ?*  Al  3  *T 
A21  =  R MOL  2  ♦  A ? 1  *  T 
A  22  =  P  HPL  "*  *  A  3  3  *  t 
A? 3  =  R'lnLP  *  A?3  *  T 

A 3 1  =  RMCIL?  *  A-»l  *  T 

A  A?  =  '’HDL1*  *  P1  *  T 

A  33  =  oqnL"  *  A 3i  *  T 

XUP  =  RHOL1  *  *m 

YR  =  <f  MDL  3  *  YP 
YRP  =  PHHL4  *  Y03  *  T 
YPn  =  3 MQL  '■  *  YP3  *  T 
YP  =  RMHI.3  *  yp  *  T 
Y V  =  3  *  YV  *  T 

YV  A  V  =  PHIL?  *  YVAV  *  T 

YOR  =■  7U  r|  *  Yno  (r  r 

Yvn  =  PHPL3  *  YVn 

IQ  zr  pqni  3  * 

7CP  =  u  *  7  op  3  r 

7  R  R  =  *  7  R  p  3  T 

7 VP  =  3  HOL  3  *  7 V3  *  t 

7ST&  =  R»ni  p  *  7<;to  *  t 
7 w  =  R!nt  ■>  *  7w  *  T 
7WA  -I  =  ’{HOI  ?  *  7  R  *  W  *  T 

>vv  =  pqot .3  *  7 vv  *  T 

7ns  r  3 h*3 i  ■*  *  7ns  <•  t 

7  PR  r  pqni  **  *  7  OR  *  T 

7  wn  =  pqni  3  *  7  wn 

T  s  |  V  _  RMPl  **  AK  1r' 

r  =  l .  n 

a  km n  -  o  uni  «  *  a  Yo  n  +  t 

AKP  r  'Mn(  /.  *  AY3  *  T 

AK  V"  =  RUO|7.  *  A  <vn  *  T 
A  K  V  -  H'V  *  A  Y  v  *  T 
4RVAV  -  -'Mf'll  ■»  ♦  A Y  V  *•  V  *  ’ 

A  k Pn  -  r 

■»  -  i  v  -  o  u°  |  r  *  a  ^  }  n 
T  ^  1  .  /T 
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AMR  P  a  (17  -  IX  4  RH(1L*  *  A  MRP  )  *  T 

AMRR  =  RHOL*  *  AMR P  *  T 

AMWO  =  RHOL*  *  AMWO  *  T 

AMVR  a  RHOL*  *  AMV°  *  T 

AMO  =  RHPL4  *  AMO  *  T 

AM A  WO  =  PH014  *  AMA WO  *  t 

AMRTR  =  RHOLB  *  AMSTR  *  T 

AMW  =  RHOLB  *  A MW  *  T 

AMWAW  =  PHOt  B  *  AM WA W  *  T 

AMW  *  RHOL *  m  AMW  *  T 

AMOS  =  RHOL*  *  AMDS  *  T 

AMD*  =  RHOL*  *  AMOR  *  T 

AMQO  -  T 

T  =  I 7-rh0Lk*ANP0 
T  =  l./T 

ANPQ  =(  !X-TY4.RHnL‘>*A\'P0)*T 
ANPD  =  RHOL R  *  ANPO  *  T 

ANVO  =  RHOL 4  *  ANVO  *  T 

ANP  =  RHOL A  *  AMP  *  T 
ANR  =  RHOL*  *  ANR  *  T 

AMV  =  RHOL*  *  ANV  *  T 

ANVAV  =  PHOl *  *  AMV A7  *  T 
ANDR  a  RHOL*  *  A MOP  *  ▼ 

ANRD  =  T 
ZB  =  f.«  *  7 P 
CALL  WRITE 
IPf.H  =  * 

WRITF(IPCH,ROI  XORQP,  XOSOS,  XPBOB,  A1 1 ♦  A 12,  Al* 
WRITE!  IPCH,  «0)  API,  A2P,  APB,  AM,  A  B? ,  ABB 
WRITE! T  PCH, PO )  XUP,  YR ,  YRO,  YPO,  YP,  YV 
WP ITE UQCH, PO)  YVA V ,  Y^o,  YVO,  ZO,  ZOO,  Z°R 
WR  I  TE  (  I  °CH,  PO  )  7VP,  7RTO,  7Wf  7  WAW,  7W,  70S 
WRITE! t  *^H, RP )  ZOR,  7WH,  AKPp,  AKP,  AKVP,  A KV 
WR  I TF (  loPH.op)  ARVAV,  AKPO,  4MPO,  AMRR,  AMWO,  A  MV® 
WR I T  F (  I PfH, PO l  AMQ,  AMAWQ,  AMR  Tp ,  AMW,  AMWAW,  AMyv 
WPITFU(,CH,RO)  AMOS,  AMOR,  AMQn,  AMPO,  AMPO,  AWO 
WR ITF ( I°CH, °0)  ANP,  ANP,  AMV,  ANVAV,  ANPP ,  AMPO 
WRITFI  IPrH,«ol  ormax,  FTAHt,  RTAI.P,  CW,  CR,  XP 
WR I TF ( I °TH , °0)  7P,  AL,  AM,  OR,  OR,  OB 
WR IT  F  f  I«rH, PO)  7  B ,  UC ,  TIMr,  PI,  OF  L  T  MA ,  RW«AX 
WR I TF ( T  °CH , PO )  PP,  PELT«I,  n<F,  OPF ,(Yl!),T*l,l?) 

*0  F  OP  MA  T  f  -*»r  1  B.M 

r,n  tp 

F  NO 
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SUBROUT  INF  WRITT 
OIMFNSION  Vim,  T  L  f  1  2  > 

oimfnston  save ( poo,  1 6i ,  n.nrnM,  buffibhoo) 

REAL  IX, IV, 17, I X Y, 1X7, IY7 

COMMON  H,  HMAX,  HMfN,  OH ,  FfT,  TL,  NOS,  N ,  I  SI  ,  N°MT 

COMMON  TL I Mt  RMOL?,  RHOL  P ,  PH014,  RMOLS,  WMO,  F  T  A,  FTA*!,  TSW? 

COMMON  XOQ,  XPR,  XPP,  xunf  XVR  ,XWO,  XUIJ,  XVV, 

1  XWW ,  xnt»0R,  xnsos,  XOBDB,  mc,  XWWE,  XOOORF,  XOSOSF 


COMMON 

VRP, 

YPn, 

YPAP, 

YPO, 

YQR, 

YVO,  YVO, 

YWP, 

1 

YWP  , 

YP  , 

YP,  YAPOP, 

YVAR, 

YSTD,  YV, 

WAV, 

YVW, 

YOR, 

YP  F , 

YVF  , 

YVA  VF 

,  YORF 

COMMON 

z  or. 

ZPP, 

7 RR  , 

7RP  , 

7WD, 

7  VR ,  ZVP, 

70, 

1  7  A QOS ,  7WAQ,  ZSTR,  7W,  7WAW,  7  A  W,  7WW,  7 VV , 

?  70',,  7AB,  7QP,  7 WF ,  ZWAWF,  70SF 


COMMON 

AK  PO, 

AKRO, 

AKQP,  AKPQ, 

AKPAP, 

AKP,  AKR,  AKVO, 

1 

A*  VO, 

A  KWP  , 

A KWP,  AKSTR, 

AKV, 

AKVAV, 

AKVW,  AKOP, 

•> 

AKCTPr 

COMMON 

AMQO, 

AMOP, 

AMOR,  AMR  P , 

AMOAO, 

AMWH, 

AMVR,  AM VP , 

1 

AMO  , 

amaqos. 

A  MAWQ ,  AMSTR,  AMW 

,  MWAW 

,  AMAW,  AMWW 

p 

AM  VV  , 

AMOS  , 

AMOR,  AMOF, 

AMWF, 

AMWAWF, 

AMOS  F 

COMMON 

ANPO, 

ANPO, 

ANPO,  ANQR, 

anrar. 

AN  VO  , 

AN WP ,  ANWP, 

I 

ANVO, 

ANP,  ANR,  AN  AR  HR  , 

AN AVR, 

ANSTR, 

ANV,  ANVAV, 

■> 

ANVW, 

A  NOR , 

A  N  P  F ,  ANVF , 

ANVAVF 

,  ANORP 

common 

IX, 

IY,  1% 

I X  Y ,  1X7,  IY7 

COMMON 

CW, 

c«,  uc. 

XP,  YP,  7« 

COMMON 

OP, 

nc,  op. 

“HH,  4|,  4  M 

COMMON 

ORM&Y 

,  FTAHI 

,  FT  41  0,  AM 

,  A  1  ? , 

A  I  i 

COMMON 

A  7  1  , 

A  ?  P ,  A?-»,  A  P  ]  ,  AV>, 

A  P  P 

C  OMMON 

xr. ,  Y 

,  7  C. 

COMMON 

II  Or, 

I  (,l  nr , 

IPIIN,  IOPFN 

,  NPl  T 

,  TOP  T 

common  v 


Common  TfMf,  51,  nriTMA,  swmax,  R "» ,  oflTmj,  lor,  jryr,  ns, 

1  JNTSW 


I  Hii  T  -  > 

FORMAT  U  m!  ,CAX  ,  •  TAT  A  PO  c  r>  A  u  a  T  I  n'i  •  i  /  > 
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WR 1 TF ( inUT  t 24 1 

WRKF(!nUT,n  XQQ,  VRD»  ZOO,  4KPO,  AMQO,  AMRO,  XO» »  Ypn,  7PP, 

1  AKRO,  AMPP,  AMPO,  XRP,  YPAP,  7RR»  AKQR .  AMRR ,  ANPO,  Xijn, 

2  YPQ,  7  RP ,  AKPO,  AMPP,  AMOR,  XVR ,  YQR ,  ZWO,  AKPAP,  AMQAO, 

7  ANRAR,  XWO,  vyn,  7  VR »  AKP,  AMWO,  ANVO 

1  FOPMATfin  , * XQQ ' ,4X,F12.5,  *  YP O' ,4 X  ,  FI  2  . R  ,  •  7 QO*  ,4X , f 1 2 . R , 

1*  KPO*,4X,F12.R,*  MQn*,4X,F12.St»  NRf)*,4X,F1  2.R/1H  , 

P'XPP*  *  4  X , c  1  2  #  B ,  •  VPO*  ,4X,F1?.Rf  •  ZPP*  ,4Xf  r  1  ?  .  «5 .  •  KPO',4X, 
3F12.5,'  MPP»f4X,ci?.5f*  NP0*,4X,F12.B/1H  , 

4'XPP' ,4X,F1?.R. *  YPAP',XX,F12.5,  •  ZRR »  ,4X , F 1 2  .  R t  *  K0R*,4X, 

BF12.5,*  MRP • , 4 X , F 1  2.  5,  '  WP0» ,4X,F1 2.R/1H  , 

4'Xlin'  ,4X,P1  2.5,  •  Y  PQ  •  »  M,n2.B,*  ZR° '  ,  4X ,  F  1  2  •  R»  »  KPQ*,4X, 

7F  1 2 • 5 » *  MRP*  ,4X,ri  2.4, •  MQP*,4X,F!2.R/1H  , 

R'XVR' ,4X,El2.R, •  YQR»,AX,F 1 2.R, *  ? WD • , 4X, F 1 7 . 5 , *  KPAP»,XX, 
PF12.R,'  MQAO*  ,3X,  FI  ?.*>,»  MRAP • ,XX,R1?.R/1 H  , 

A'XW0*,4X,E12.5,*  YV0*,AX,F12.R,*  7  VR  •  ,  4X,  F  1  2.  R  ,  •  KP'.BX, 

BFl 2  .  B  ,  *  MWP'  t4X,F12.5,  •  NVn* , 4X , F 1 2 . B ) 

WRITFUniJTtlU  XIPI,  YVO,  ZVP,  AKP , 

1  AMVP,  ANWR,  XVV,  YWP,  ZQ,  AKVH,  AMV®,  ANWP 
11  FOR  MA  T  ( 1  H  ,  *  XIJll*  ,4X,Fl?.R,  •  YVO*  ,4X  ,  El  2 . B  ♦  •  7  V»  •  ,  4X ,  F  1  2  .  B  f 
1'  KR  * ,  BX, F 1 2. ^  ,  »  mVr • ,4X,ri ?. B, *  MWR » ,4X t r ] ? . s/ 1 H  , 

2'XVV  ,4X,Fl?.B,  •  YWP*  ,M,*M2.R,*  7Q*  ,*>X,F12.B,  *  KVn»,4X, 

IF  1  2  •  B  , '  MVP' »4X,F1?.5#»  MWP* ,4X,F1 2.5) 

WR  ITF  (  nt)T  ,  ?  )  XWW,  YWR,  7AQn<;,  AKVQ,  AMQ,  ANVO,  X^R^P,  YR  , 

1ZWAQ,  AXWP,  AMAOHS,  ANP,  xnSOR,  YP,  ZSTR,  AK WR ,  A«AWO,  AN»  , 

2XORDB  f  YAROP  ,  ?w,  AKST«>,  AM<TR,  ANAPOR , XVVF , YVAR ,  7WAW,  AKV, 

3AMW,  ANAVR,XWWF,YRTPt7AW, AKVAV,  AMWAW»ANRTR 

>  FORMAT  (  1  H  ,  •  XWW*  ,4X,  F12.B,  •  YWR • ,4X , FI  2  .B ,  •  7  AO^S  »  ,  ’X  ,  P  1  > .  *?t 

1*  KVQ',4X,F1?.R,  •  MQ  • ,  SX  .  F  1  2.  *5,  •  MVQ'  ♦  4X ,  E  1  2  .  S  / 1  M  , 

2«XnRO°  •  ^X.Fl?.1;,'  YR*  ,*Xtri?.«5,*  7WAQ’ ,BX,P1  2.*?,  *  KWR*,4Xf 
3F12.B,*  M  A  Of)  S*t?X»Pl?.5t*  MP*  ,  SX«  F 1  2. 5 /\»  , 

4*XOSnS*,?XfFl’#B,  •  YP»,  SX,  *  7<;tr.  ,-»x, PI  >.«?,*  K\iR*,4Xf 

5F  1  2 .  R  . '  WAWQ*,^XfR*  2.SV*  MR  •  ,  5X  ,  F 1  2  .*?  / 1  H  , 

4'XnBDR',2X,Fl?.Bt«  YARHP  •  ,  ?x,  T  1  ?.  *5,  *  Z  W  •  ,  R  X  ,  F  1  2  .  *5 ,  •  KSTR'.XX, 

7EI  2 .5  *  '  MSTP  •  ,XX  ,n  ?.Rt  «  M  ARPR*  f  ?X  ,  FI  2  .  V  1  H  , 

R'XVVF*  ,1X,F12.R,'  YVAP',XXtFl?.St*  7WAW*  »'X,ri">.Rf  *  KV'.^X, 

°F  1 2 . 5  ,  *  MW*,RX,ri5.Rt«  N  A  VP  *  ,  XX  ,  F 1  2 .  *>7  14  , 

A’X-'WF*  »3X,P12.R»*  YST°',3X,F’?.R,*  7  AW  •  ,4X  ,  ri  •>  .  s  ,  *  KVAV'.XX, 

PF12.R,'  MWAW  ,f',X»c'2.R»  '  m^TR  • ,  XX ,  P  1  ?  .  R ) 

WR  I  TP  (fOlIT  ,?■>  )  XnROOP,  YV,  7  WW, 

*  AK  VW «  A  MA  W»  AMV#  XP-RORF,  YVAV,  ^VV,  AKOP,  A^wW,  AMV  AV 
,‘l  FOPMATHH  t  *XOO0RF*,  lX,ri?.R,  •  YV*  *  4X,  M  **.  S,  •  1  WW  •  ,  4X  ,  c  l  2.  •> , 

P  KVW*  ,4X,ri2.R,*  MAW*f4Y,ri7.st*  MV  *  p,S/  1H  , 

■»*X0S0^r*,|X,F!?.4f  *  YVAV*  ,  TXtF  *  ?.R,  *  7  VV  *  ,  4  X  ,  C  ]  *»  .  S  ,  '  K0R*,4X, 

'■*F  1  2  .  c  •  *  MWW*  ,4X,F1  ?.R,*  MVAV*  ,AX,F*?.R) 

WRlTTf  TOUT,X)  WW,  7^^:  ,  AKSTOF,  AMVV,  AMyw,  YOR, 

pnn,  AMr>s,  AMnt ,  YR  F ,  7gr,  AMDR,  AMRC  ,  YVr  ,  7wc  ,  AM^p, 

■»AMVF,  YVA  Vc  ,  »WAWF,  AMWr ,  AMVAV«“,  YORC,  70<;*-,  A  MW  A  W  F ,  AMF>OP,  AMn*;f 

>  FOBMATHH  ,  1«X,  «  YVW*,4X,F*?.F,»  7HR  •  ,  4Y , r  1  *» .  R , 

1*  KRTRF*  ,  X  ,  F 1  2,R,  •  *VV*,'.»,n*tS,»  MVW*  ,  4 1,  r  )  •»  ,  «;  / 1  m  , 

■M*»X,  «  Ynot  ,4YfF»  ?.R,»  7D»*  ,4X  t  R,  f)  X  , 

■*»  Mr>R*,4X,F!R.«,  *  Nn»  *,  4X  ,r  1  , 

41«JX,  *  Y»r  •  ,4X,  F 1  ?  .R,  »  >,'r»,4X,F»2.R,»1Xt 

R«  MHR* f 4X,F 1 2. R, *  N»C ' ,4Y ,f 1 R.R/tM  t 
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t'  10  X,  *  YVP«,4Xtei?.Sf  •  ?WF*  t4XfF1?.5«?lX«  •  mqf  »  ,  4X,  F  1  ?.  S, 

7*  NVF,»4X,F12.*'/1H  ,  1«JX,'  VVAVF't  7X,F1?.5,  «  7  WA  WF  •  ,  ’X ,  F 1  7  .  S 

«  ?1X,»  wWP*  ,4XfF17.«>f  •  NVrtVF  '  ,  ’X,  FI  ?.  5/1  H  ,  19X,  *  Y0OF*fBX, 

0  F12.S,*  7DSF*  ,BY,n  ?.s,7i  x,  •  MWAWF  •  ♦  ?X  ,  FI  7  .«?  ♦ »  Mnont^xt 
a  EIZ.s./ih  'most*  ,bx,  f  i  ?.f// > 

WPITF(  int)T,/,)  ixf  IYf  I  7 ,  TXY,  1X7,  T  Y  7 1  CW,  fR,  '1C,  X  0,  YR, 

1  ZB,  OP,  OS,  OB,  r-HP,  At.,  A« 

4  FORMA  T  f 1 H  ,  •  t X • , BY , F 1 2  .  * , •  1 Y ' , *X, F 1 ?. % •  I7*,SX,rl?,5, 

1»  IXY* ,4X,F1 ?.F,«  I  X  7 • ,4X,F1?.RV*  T Y 7 • , 4 X , C 1 ? . S I ] H  , 

2*Wf  ,6X,F1?.5,  •  B»,M,F!?.R,»  '1C  • ,  M ,  F  1  2  .  S  ,  •  XB  '  ,  RX  ,r  t  ?.  5  , 

V  YP« ,SX,F12.S,«  7B»,RX,F1?.F/1H  , 

4'PR  *  ,SX,F1?.F,  •  PS',SX,cp.','  OB*,SX,Fl?.F,*  RHO* ,  4  X  ,F  1  ?  .  •> , 

5  •  l»,4X,Fl?.S,»  mm.<,M2.5  ) 

WRITF(IOUT,M  All,  A?l,  AG’,  OP  MAX,  C  T  A  H  T  ,  p  T  AL  0 ,  A\2,  A??,  AB? 

1  XG,  YO,  ZG,  ui,  A7B,  AVI 

7,  H  ,  1  NT  SW ,  TI«F,  PI,  PELTMA,  SVMAX,  R?,  OFL  T  M  1 ,  OSF,  n^F,  ICYF, 

4  FOR  Mft  T ( 1 H  , *  A  1 1 »,4X,F1?.S, •  A?l* ,4X,E1?.R,  «  A  XI •  ,4X , F 1 ? . S , 

1*  CP*AX'  ,?X,F1  7.«5,  •  FTAH!  •  ,?X,F12,S,»  PTALO*  .  ?X,  cp.  S/ 

7 1 H  ,'M?*  ,4X,F12.B,  •  A?7*  ,4V,F1?.S,  1  AB7' ,4X,F1  7.S, 

B  •  XG',5X,c12.t',  *  YG*,sx,ri  ?.«;,•  ZG  • ,  *X,  F 1  ? .  R  / 

4 1  H  ,'Ml',4X,ri?.s'  A?B*  ,4x,rr>.«j,  t  abb • , *x , r l 7 . s , 

*>•  H»  ,4X,F  7  ?,5,  •  TNTSW  ,?X,!7/ 

MH  ,'T1MF«BX,P17.B,  •  R!' ,^X,F1  7.s,*  OFl  .T  *A  •  ,  1  X  ,  F  1  7.  *  ,  '  SWMAX 

7?X,F12.«5,'  D7‘  ,BX,F1  ?.F, «  nfLTMI  •  ,  1X,F1  B.S/ 

B 1 H  ,,0SC,,4X,F1?.^,  •  ODF • ,4X,F1 7.F,  •  1 C Yf •  , B X , 1 7 , 1 0 X  , 

<J'  NS*  ,SX,7?/) 

WRITmotJT,c)  1  R 1  )A' 

5  FOR  MAT  f  1  H  ,»R')N  NP  »,  7  r,  /  ) 

R  F  T  UP  V 

r  NO 
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subrout  inf  input 

DIMENSION  Yim,  TL(l?),  HOC  fl  M  ,  YHOLDI  IB),  COMm^l 
FOUIVAIENCF  irOMU),HI 
RFAL  IX,IY,I7 ,1 XY, IX7,TVZ 

COMMON  H,  HMAX,  HMIN,  OH,  FCT  ,  TL ,  NGS,  N,  IS1,  NPNT 

COMMON  TUM,  RH"L?,  PHOLS,  RHQL4,  RHOLS,  W«R,  ETA,  FTAM1  ,  TSW? 


COMMON 

1 

XOO,  XOR,  XRP,  XUD,  XV R  ,XWO,  XUU,  XVV, 

XWW,  XPROR,  XOSDS,  XDBDB,  XVVF ,  XWWF,  XDPOBF,  XOSDSF 

COMMON 

1 

? 

YPO,  YPO,  VP  A  P ,  YP  0,  YQR ,  YVO ,  YVO,  YWP, 

YWR,  YR,  YP,  YAROR,  YVAR ,  YSTR ,  YV,  YVAV, 

YVW,  YOP,  YPF,  YVF ,  YVAVE,  YDRE 

COMMON 

1 

? 

ZO*»,  7PP,  trr,  ?rp,  7WO,  ZVR »  7 VP ,  70, 

ZAQOS,  7WA0,  7STP,  7W,  7WAW  *  7  A W ,  ZWW,  7VV, 

70C,  700,  70F ,  ZWF,  7WAWF,  70SP 

COMMON 

1 

7 

AKPO,  AKPO,  AKOP,  AKPQ ,  AKPAP,  AKP,  AKP,  AKVO, 

AKVO,  AKWP,  AKWP,  AKSTP  ,  AKV,  AKVAV »  AKVW,  AKOP, 
AKSTRP 

COMMON 

1 

7 

AMQO,  AMPP,  A MRP ,  AMPP,  AMOAO,  AMWO,  A  Myp ,  amvd, 

AMQ,  AMAOD^i  AMAWO,  AMSTR,  AMW,  AMWAW,  AMAW,  AMWW, 

AM  VV «  AMOF,  AMOP ,  AN OF ,  AMWF,  AMWAWP,  AMOS  F 

COMMON 

1 

7 

AK'PO,  ANPn,  ANPO,  ANQR ,  ANPAP,  A^VD,  ANWP ,  ANWP, 
ANVQ,  A  NP »  -ANB,  ANARDO,  ANAVP,  ANSTP,  ANV,  AN  V  AV , 
ANVW,  AMQ0,  A  N p  F  »  AN VF ,  ANVAVC,  ANOPP 

COMMON 

IX,  TV,  17,  |XY,  1X7,  IY7 

COMMON 

CW,  CP,  1)0,  XB,  YB,  7P 

COMMON 

no,  nc,  n«,  PM  P,  m_  ,  am 

COMMON 

nPM%x,  CTAMI,  CTAin,  All,  A1?. 

COMMON 

API,  A?2,  APT,  All,  AB*»,  MT 

COMMON 

xr,,  vo,  ?  Ci 

COMMON 

1 1 nr  »  l PLnT ,  TPUN,  inpCN,  NPIT.JOPT 

COMMON 

V 

COMMON  TImc, 

pi,  nctTMA,  <;wmax,  op,  obitm),  occ,  ™e,  ic.yc,  ns. 

I  1NTSW 
IN  *  » 

REAnUN.SOI  N',S,  “’PNT  ,  'N.nt,  fO»N,  NP«T,  J^OT,  V ‘yr,  nS,!nt<u 
1  F  t  lO*m7O,*0, 
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r 


C 


r 


r 


r 


r 


c 


r 


r 

r 

r 

C 

r 


60  CALL  FXIT 
70  CONTI  N'JF 

PlAOI  IN, 601  (  II  PM  I  ),  I  -  1  ,  16) 

6Q  Ff)RMAT()6Tr') 

PEADI  IN, 1 0O)T0,Hn,nM  ,hmax,hv)  M,  cr  T,  TUM 
H  =  HO 

100  EPRWATIflPl  0.6) 

°EAO(!N,  100)1  Tl  (I), 1=1,’*) 

RE AO (IN, 100) f  V  f  I  ) ,  1  =  1,17) 

Ym)=  to 


R  F  A  n  (  I  N ,  1  0  0  )  XOC,  too,  XRO,  Y|jn,  ;\j  o  ,XWP,  XIIU,  XVV, 
1XWW,  KORO?,  XO$t>S,  XOOOQ,  X  VVF ,  X  WWF ,  XPROPP,  xosos c 


RE  AO ( I N, 

100  ) 

YRO, 

YPO, 

V  D  A  P  ,  Y  P  0 

,  YOR,  YVO,  YVO 

,  YWP, 

1 

YWR  , 

YP  , 

YP,  YAPPP, 

YVAP,  YSTO,  Y'/ 

,  VVAV, 

■> 

YVW, 

YOR  , 

vpF,  VVF  , 

YVAVF,  YOPr 

RFAniTN, 

1  00) 

7  On , 

;pd. 

7  R  o ,  7PP, 

7WD ,  7VR,  7 VP, 

70, 

1 

l  AO06 

,  7  W  A  O  ,  7  R  T  P  , 

7 w ,  7 w A w ,  7 aw. 

7  WW ,  7  V V 

? 

7^, 

7no, 

7QP,  ZWP, 

7WAWF,  70SF 

READ! IN, 

10O  ) 

AKPn, 

AKQO,  AKOP,  AKPO, 

AKPAti , 

AKP,  A  K  7 ,  AK  VP , 

1 

AK  VQ, 

AKWP,  AKWP,  AK  ST  R 

,  AKV, 

AKV AV, 

A  K  V  W  , 

AK  or  , 

- 

AKFTRC 

R  E API  IN, 

100) 

AMQO, 

AMPP,  A  NP  o ,  AMPP, 

AM  Q  AO  , 

AMWO, 

AVV°, 

AM  VP  , 

1 

AMO, 

AMAQP6,  A  m  A  W  P ,  AM$  TD ,  AMW 

,  A  m.,- AW 

,  A  m  a  W 

,  A  MWW 

■? 

AMVV , 

ANOR,  AMPP,  AN  OF , 

AMWF, 

A  M  W  A  W  F  , 

A  MO  FT 

OFAPI IN, 

100) 

AMPO, 

ANPO,  ANPQ,  ANOR, 

ANP  A R  , 

AM  VO, 

ANWR  , 

A  N  W  °  , 

1 

ANVQ, 

ANP,  ANP  ,  AK'AROR, 

ANAVR  , 

amstp  , 

A  M  V , 

AMVA V, 

-> 

vw, 

ANOR,  AMPF,  ANVF , 

amvavp 

,  AMORi" 

of ADI  IN, 

1  OO) 

IX, 

IY,  17,  I  X  Y ,  1X7., 

!  Y7 

PFAni IN, 

10M 

PW, 

r  °  ,  ,r,  xp,  vo,  ZR 

ot API  IN, 

1  00 ) 

np. 

-X,  RR,  pwr,  At,  AM 

REAP  UN 

,  i  on ) 

no  max,  FT  AN  1,  frt\n.  All,  A  i  7 

,  A  1  o 

o  F  A  0  ’  I  M  , 

100  ) 

A7)  , 

A  7  * ,  Ail,  ^il,  AIR-  All 

RFAOI  TN.  5  00  )  X(  ,  V".,  7r- 

PfA|0(  IN.  100)  Ti'-r,  i’1,  oflTvA,  <U*AX,  P  > ,  OFI’MT,  O  V  .  oor 


r 


0  F  T  URN 
f  NO 
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iUTOfLOM  CHART  IfT  -  t CT*0  NAVTRAOr«fN  M-OOORP-* 


CHART  TITLE  -  MQCfPURR* 


/  *A  / 

- 1 . 

OS.fi— >1 

J  HOTf  PI 

*  COHTINUf  • 


COHRUTf  RHO 
C'-NSIANTS 

I 


|  RHOM  •  RHO*. R 
I 

I  RHOL  ?  • 

t  RHOH«AL«*L 
I 

I  RHOL)  -  RHOlfRAl 
I 

t  RHOL*  «  RHODRAL 


I  *HOL*  •  RHOL **AL 


*G|Tf  OUT 
HYOROOVNAAtC 
CPMMf  If  NTi 
I 
I 
I 


|  RftRfM  « 

|  RHOL  >A«0*Hi*T 

I 

I  msns  « 

|  RHOL  »*«0)f)RT 
I 

|  lOROR  • 

|  MMOL  'R«R>' PART 


5  Ml  •  RHPl  >RA1  |RT  | 

I  I 

I  *U  •  RNH  »«4I/R1  I 


1  M  \  •  *HlHf  J 

I  I 

I  A?l  •  "NOLf«ftf|«t  I 


I  A??  ■  RHfX.?RAf?RT  | 

I  I 

|  A?  J  -  RHOL ?*A?  )*T  I 

t  I 

I  A  3 1  •  RHOtfRATlRT  | 

I  I 

|  A)?  -  RHOL ?*A R?RT  | 


|  A))  R  RHOL?RA))RT  | 

I  I 

I  *‘)0  ■  *hol rrrijo  | 
I  I 

I  y*  •  A^ni  ’A  YR  1 
I  I 

I  VRO  »  RMPIi4*VRORT  | 


I  t AO  •  RHO|  4*VP0*T  I 

I  t 

|  VP  •  RMOt  )*Y A*|  | 

I  I 

I  TV  •  RHnt?PtV*T  | 

I  I 

I  YV*V  ■  I 

|  RHOl?RYVAVRf  | 


I  YOR  «  RHniJRYORRT  | 

I  I 

|  YVO  •  RMOLTRYVH  I 


|  f  J  -  *MH,  *R>< 3  | 

i  I 

|  /OO  t  AM'ti4*/T>«T  | 


|  Jw-  .  »H<|  *9  *44«T  t 

I  I 

I  Tyi  •  KMIH  J VA*T  I 

I  I 

I  Hf*  •  I 

|  RHOL  ?  A  F  %  T  R  A  T  | 

I  I 

I  9  4  •  RH"L I 


1***1  ■  I 

«hil  | 

I 

Y V  «  *MP|>RfVVRT  | 

I 

hr  •  im  ^i  t»ps»r  I 
I 

n*  .  | 


r  •  l«  • 

A**l*  ••AAA'* 


AAR  I  « 

Rip  A  RAAAtfUf 


T  •  IV  - 

rholrrarqo 


IMA  -  I  If  -  I*  ♦  | 
•HOI  9AAHRA)«T  I 


IRM  • 

"MOL )• AARAR  T 


AHWO  • 

HMOtARAHMORT 


AHVR  • 

RMOL4RARVRRT 


A  HQ  ■  RMr>L**AH  J*  r  I 


HAV3  • 
RHnL*RARA»0*» 


- 

r MOi  irfm<;t«at 
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/  INTO  ?Mf  \  1ST  t 


LIST  *  AO,  IS 


/  • r An  *aon  p«v  / 

t  IN  t 

/  v  U  • n* • a  »  / 

*  10*  * 

*  INTO  »Nf  LIS»  * 


|  NT?*  I* 
•  ••••••**'* 

•  LIST  *  TIM  .  *1  •  • 

•  TNll«l,  UM«.  • 

•  •>,  n«|  T»| ,  is*  ,  • 

•  «•*  * 
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//  JOR  Fr7B0 

If  EXFC  FFOPTPAN 

RFAl  I  CYC 

DIMENSION  Y  ( 10  )  ,  F(l?),  r1!P),  XII) 


COMMON 

XPROR,  xn  <;n  <; 

,  XPPOO,  ATT,  Al?,  An,  A-’), 

A??, 

APR,  AO], 

1 

AO?,  ARR,  X'|p 

COMMON 

YR,  YPO,  Y  p  n 

,  YP, 

YV,  YVAV, 

YOR,  YVP 

COMMnN 

7Q,  700,  Ipo 

,  7VP 

,  7  S T R  ,  7  W, 

7  WAW ,  7  VV , 

70S  , 

7PR, 

1 

7  WP 

COMMON 

AKRP,  AKP  , 

A  K  VO, 

Ax  v ,  AKVAV 

,  AKP  P 

COMMON 

AMR  P ,  AMpo, 

AMWO, 

A  MVP,  AMQ, 

AMAWO,  A  M  S  T  R ,  AMW,  AM^AW, 

1 

AMVV ,  AMPS, 

AMQR, 

AM  QP 

COMMON 

ANPQ,  ANPO, 

ANVO, 

ANP,  ANP, 

ANV,  ANVAV, 

ANOP  , 

ANRO 

COMMON 

ORmax,  FTAHT 

,  FTALO,  CW,  CR, 

XG,  70,  A|  , 

AM, 

OP,  OS,  OR 

1  7R, 

up,  T  T  mf ,  R 1  ,  OFLTMA,  swmax 

,  R?,  0  f '  L  T  m  j 

,  PSF 

,  PRF 

COMMON 

Y,  F  ,  F  1  ,  ICYC, 

NS,  H,  HU, 

T  SW7 

EQUIVALENCE  ( X  n  ) ,  XOPP^I 
IN  =  I 

tout  =  o 

I  CYC  =  1  . 

?0  P  E  A  0  (  TN,e;0)  I  °UN ,  NPNT,  NS 
SO  FOP MA T ( 1 6 1 S ) 

IF  {  IRUN)40,  00,40 
00  CALI  X  [  T 
40  CONTINUE 

PFAO(  IN, ^Ol  TO,  H,  TL  7  M 
40  FORMAT(OPIO.S) 

RFAOITN,70I  (Xm*I-I«  fl4I 
70  FOP^ATfSH  R.M 
TCNT  =  1 
Y  (  1  0 )  =  TO 

HH  =  .4*" 
nn  7*  I  =  1  ,  l  ? 

«=  II  »  *  0. 

7S  Fill!  =  0. 

UP  I TF I  I  OUT , 77) 

WRITE  I  I  OUT  ,  TR  l  TRIIN, NS 
W°  I  Tr  (  T  OUT  ,  ‘•O  ) 

7’  FORMAT  |  tH|  ,  ?  4  X  ,  "'OHSIIP^AP  I'’r  c  I  Vl  IL  '  T  I  ON)  /  ) 

y*  FPPMAT(1M  ,  *>X,#-MRUN  ,  ’4  ,  *  V  ,  ?HNS  .  I  4/ » 

n  r  r)R MA  t  (  in  ,  ax  ,  l mi j ,  l  ax  ,  1  mv,  i  4 x  ,  i  >u ,  i  '•  <  ,i  wn,  l  '.x  ,  i  mo/ 

1  |H  ,  4X,  1  MR  ,  I  OX  ,  SWTMCY  A,  1  «  x  ,  ^WPS  |  ,  \  x,  AHPU?  ,  1  0  x, \m  x/ 

■»  1M  ,4X  ,  1MY  ,  T4X  ,  |M  ?  ,  1  4X,  I  MT  /  ) 

UR  !  TF  (  I  OUT , POI  ( VI  I  )  , I  ’ 1 > 

<n  FPPMATtlM  ,*f- ’4.41 

WPI  rr  I  TOUT ,04) 
q  S  F  PR  v a  T I  ’ m  I 
ISWO  ^  ) 

oil  CAtl  U^OATT 
ISW?  -  I 

!  F  I  NRNT-  ir\iT  )  tpp,  i  ->r  ,  J 

io)  t  r  * t  o 

WP  I  Tf (  TOUT , 0  0 )  ( V ( I  ) ,  T  *  ’ . » 0 ) 

ma  J  Tf  (  T  O.  IT  ,oe  , 
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no  icnt  =  ir.NT  +  1 

lF(Tt  IM-Y( !? ) )?0,?0,00 
FNP 
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r 

C 

r 

C 

c 

c 


r 

r 

r 


RUBpoiit  inf  upoatf 
pfal  icyc 

niMFNSfnN  v<n>  ,  mi?),  pin?) 

common  xorop,  x^ror,  xnnix,  am,  at?,  An,  am,  av,  An,  axi, 
1  AX?,  AX'*,  xnr> 

COMMON  YR  ,  YPT,  ypn,  VP  ,  YV  ,  YVAV,  YOR  ,  YVO 


COMMON 

7Q,  7QO,  7PR 

,  7v°, 

7  n  0 

,  7  W, 

7WAW,  7 VV, 

70R ,  7H9, 

} 

xwn 

COMMON 

AkRO, 

AKP  , 

akvo, 

AK  V, 

AKVAV 

,  AK  pn 

COMMON 

AMRO, 

A  MP  0 , 

AMWO, 

AM VR  , 

AMQ, 

AMAWQ,  Amrtr,  amw,  AMWAW, 

i 

AM  VV, 

AMOR, 

A  MfAP  , 

AMr.m 

COMMON 

ANPQ, 

ANPH, 

ANVO, 

AMP, 

AN9, 

ANV,  A  N  V  A  V , 

ANOP,  A  NRD 

COMMON  OPMAY,  FTAMT,  CT  At  CW,  rq,  XG,  7^,  AL,  Am,  no,  OR ,  HP, 

1  ZP,  or,  TfMF,  pi,  n  F  l.  T  m  A ,  X  WM  AX  ,  P->,  ^FLTMT,  n^F,  "»oc 

COMMON  Y,  F,  F),  I rvc ,  NR,  H,  MM,  I  Rup 

F  OU I  V  AL  CNC  F  I  Y  Ml  ,  U  »  ,  I  Y  n  )  ,  V  )  ,  {  y  (  3  )  ,  W  ) ,  {  Y  (  4  )  ,  P  )  ,  (  v  (  F  )  ,  ->  )  ,  ,  V  (  *  )  ,  P  )  , 

1  (  Y(  7),  Tmc  TA  )  ,  (  Y(<*  )  ,PRI  >  ,  (  Y(  ,PH!) 

CALI  TO  r  PN  YPDL 

CALL  CONTPITHrT a» 

COMPUTF  XMANTITIFR  to  PF  II^FH  Mppr  THAN  oncf 

II?  s')*1! 

V?  =  V  *  V 

PR  =  R  *  R 

POOTVW  =  SOPTfv?  ♦  W*W» 

VRTVW  =  V  *  DOPTVW 
WRTVW  =  W  *  PIOTVW 
VP  =  V  *  9 

WP  =  W  41  P 

1-  p  =  P'S  P 

r,u«  =  n*cw  - 

v'mr  -  r n  -  ra 

S r  t  ppnpr|LP»  twourt  r  °NRT  * *|TR 


1  F  (  !  ) 

’  0 

*  1 

r  ta  = 

'JC 

/ 1 1 

T  F  (  r  T 

A-  F 

TX  H  !  ) 

?  A 

A  1  r 

A  1  ' 

A  •»  r 

A  *  1 

AX  = 

A*  X 

r,n  t* 

<•0 

x  A 

I  F  1  f  T  A  -  r 

T ai  ri 

A  0 

A 1  - 

A  XJ 

A  ?  - 

X  I-* 

A  x  s 

x » ■» 

r.c  Tr' 

A  X 

SO 

A  1  : 

**  ! 

A?  = 

x 

AX  ^ 

X"*  X 

A1 

rCNTINT 

t.” ,  so 
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c 

r  f; (JMPUTF  TRIG  FUNCTIONS 
r 

S P H 1  -  S I N( PHI) 

C  ph  i  =  r.  ns  I  phi) 

ST  T  A  =  SIN(THFTA) 

CTTA  =  COS ( THCT  A ) 

SPSI  ■=  SIN(PST) 

cps  i  =  cnsiPsn 

TRIG!  =  CTTA*SPHI 
TP  I  02  =  C.TTA*CPHI 
TP  IG^=S°H|*STTA 
TPIGA  -  C PH  I  *  STTA 
TRIGS  =  IJ*CTTA 
r, 

r  COMPUTE  un  FROV  AXIAL  FORCF  FON 

r 

F ( 1  )  -  ( AM* ( VP-W*0+*G* (O+O  +  RR )-ZG*(RP+F 5 S> l )♦)!?*( xnpnR*0R*0R 
1  ♦xosnst-os^nsfxnRno*oR«nR-f a)  )  +ur* (  a?«u+ao*ijc)-wmr*stta) n a^-xuo) 
r 

C  COMPHTF  vn  FROM  L  A  T  FP  Al  Fn°CF  FON 

r 

r  (  p  )  -  (U*|  l  yo-A^)#P  +  YP*P  +  vv*V)-AM*(  z G* I  Q*0 -c  (  A  )  )*X0*  IO*P  +  P  IS  )  )  ) 

1  4YRn*F(M+YPn*F(M  +YV  AV*V»  TVW4-Y0R*ll?*0P +W«R*TR  I  G1  *  AM*WP) 

~>  /(AM-Yvn) 

r 

c  computf  wn  from  ngirmai  fortp  ton 

r 

F  (  ->  )  -  (u*  (  (  ZQ  +  A>M*o+7W*W)*  AM*{  7G*(  P*P  +  0*0) -XG*  (RO-F  (S)  )  H- 
1  ZOn*F  (  A  )47PR<:PP4-ZVR*VR  ♦7STR*lP+7  WAW*W«  T VW  +  Z VV*V?4-!P*(  7  0F*n<;  + 

■>  znR*OR) +WVR*TP  IG?  )  /(AM-zwni 

r 

C  OMPIJTF  on  from  ROLLING  momFNT  FQM 

r 

F  (  4)  -  (AM*ZG*(F(?)-WO  +  l|*R)-GWn*1'RIGl)<AKPn*.AXPn*r(A)+.  |*{  A*P*r> 

1  +AKV  +  V ! +AKVAV*VRTVW> AKVO*F ( ?  ) 
r 

C  C  1 M  P 1 1  t  F  m  FOHM  oj  T  G  M I NG  mompnt  FON 

f 

F  (  c  )  -ANRP*PP-AYQn#AM*  (  ZG*  (  F  (  I  ) -V& 4W*0  )  -  X G*  t M  *  )-||*Q4\/*  n  )  )  «.  i\Mop*wc 

1  4  amw'i*f  ( )  4Amvp*VR  j*  (  amq#Q4Amw*w)  4-u?*(  AwSTR4AM0R*nR4AMns*n<;) 

?  4AMAW0*Q*RCnTVW4A*iWAW*WRTVW4AMVV*V?-A'10r'*  (  xG* FW*T«  IG,*GWR  *STTA  ) 

f" 

r  rnMPuTF  «n  fro*  yawing  wpyfnt  fqm 

r 

F(M  s  ANOQ*P*Q-ANRn*AM  *  (  X  G*  (  F  (  ’  )  -  WP  4-U  *P  )  )  ♦  ANPn*P  I  <♦ )  ♦  A  NVn*  r  <  i  (  ♦ 

I  U*  (  ANP*P*AND*®  4 ANV * V ) ♦  ANVAV*V* T  VW*I  I 7 ♦ A NH R*n04ANpn*XG*r  W*T Q I G1 

C 

r  r (imp nr F  kinfmatics  -  twfta  nf1  t  ,  psi  nnT,  phi  mr 

r 

F  (  7  |  s  Q*f.PHl-B*SPnl 
MP)  3  {  0*SPHl»B*CPMU /rTTA 
F(O)  s^riaiiSTTA 

r  331 
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r  rnMPuTF  x  hot  ,  y  hot  ,  7  mr 
C 

f  U  0 )  =  t  «  i  r,  s  *  r  p  <;  i  v  o  (  t  p  i  r. *  c  o  s  I  -  r.  o  h  I  *  s  o  s  I )  ♦ 

1  w*(T«!G4*rp<>l  ♦  <;pHl*<;o«;n 
F  ( 1 1  l=TRir,S*SPS|4-V*(T«|r^*SP^I+COH!*rDSI  1  ♦ 
1  w*(Tq!r,4*SPSl-<;PH!*rp«;T » 

F  ( 1  2)=-U*$TT  A  ♦  V*  TP  ir,  ]  «.W*TPir,p 

r 

C  INTFGR&Tr  AMO  PFP1.ACC  P)  n  OFPfVATIVFS  WITH  pew 

r 

nn  PO  T  =  1,12 

Y(  n  =  Vlll  ♦  HH*n,*F(!l-FHll) 

FI  (!)  =  Fill 
«0  fONTINiir 
F  IJP04TF  T  I MP 

y( n »  *  ym’uh 

PFTlIRN 

FNP 
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si  B»nm  1  vf  r  hmtp ( thf ta ) 

PFAL  I  CYC 

niMFNS  inv  vmi  ,  F (  1?)  ,  FH1  ?) 


COMMON 

xppop,  xnsns,  xnono,  ah,  ai?,  ah,  a?1, 

A??, 

A^O,  ATT, 

1 

AH,  A  7  a,  Xlin 

r pM  vpo 

YR,  YPO,  YPn ,  yp, 

YV,  YVAV, 

Yno, 

YVn 

COMMON 

TO,  700,  7RR,  ZVP, 

7STR 

,  TW* 

7WAW 

•- 

> 

> 

70';, 

700, 

1 

7WP 

c  OMMPOI 

AKRO,  AKP  ,  *KVn, 

AKV, 

AKV  AV 

,  A:<pn 

COmmpn 

AMR  n ,  Aw',"1  AMWO, 

A  MVP  , 

AMQ, 

AMAWQ,  AMFTO,  AMW,  A  MW  AW , 

1 

amvv,  Amhf,  AMOR, 

AMon 

COMMON 

ANOg,  AN  or),  ANVP, 

AMP, 

ANP  , 

ANV, 

ANV  AV, 

ANOP  , 

AMR  n 

common 

OPMAY,  c  T  AM  I  ,  FT  AI 

0,  CW 

,  CR, 

xo, 

70,  AL, 

AM, 

or,  os,  no 

i  7  n , 

n;  ,  T  PF,  °  1  ,  "fi.tma. 

c  WM  AX 

,  R’, 

hfltm i 

,  OFF 

,  OP  F 

C  t.:M  MON 

V,  r,  FI,  IC.YC,  NF,  M, 

HH, 

I  SW7 

IS  RF  Ti)PM 

1  S  CONTI  N'iP 

on  rn(  i  ooi ,  i  ooi ,  I  orn  ,  1  op4,  inns,  too*,  ino7i  ,NS 

r 

C  f  PNTROt  no 
r 

100  1  IF  (  H  ■'•’HI  ,?n,?t 

■>r>  n  1  =  7 

1  N  N  ?  -  » 

MC.  ?  -  (  f  TIMPMCYC  )  /H*  *■  .s 

NC*1  =■  (ARStPF  -0FLT,<A)  )*!Cvr./ARF(Pl*Hl  +  .S 

NFr-  -  (  *"$  (nR_TMl-OrLTM/\nMCYF/AAF  H?*H»  +.* 

r,n  to  i  ’ 

•  1  PT  TP  (  !  .  ?  ,  R,4,  s,  1  1  ;  ,  N1 

r  CYF  IFF  TP  F  r  A  s 

7  nN;-  ,  ►!  t  1 

M  (MN  *  -  01  11  ,  l  1  ,  7 

c 

C  nv  ,M 
( 

7  N  ]  -  1 

fir.'  1  ^  n 

i  Nil’  -  NN 7  v  T 

i'F  -  ’if  h  i»<!:*i/iry r 

I  f  (  on 7  -  or  7  )  n  .os'1 

r 

r  ns  if vn 

r 

•TNI  -  A 

r.n  tp  p 

ir  lAWFITHfiM  -  7<fMAX)  P,P,n 
r 

r  of  ur 


■>  N1  *  S 

^’Nr  T  A 


333 


NAVTRADEVCEN  68-C-0050-2 


♦ 


5  NN5  =  MN*>  ♦  1 

ns  =  ns  ♦  h*r?/ic.yc 
IF  (NN5  -NCM  1 1  ,10,10 
r 

r  os  LFvn 

r 

10  Ml  *  6 

r 

11  IF  (MS  -  ?  111,1  007  ,  1  000 
1  0  CONTINUE 

00  TO  7000 

r 

0  CONTROL  OR  4-  MITITMI.^T 
C 

1 00  T  IF  (ISW?)  001^00,^1 
TOO  ZC  =  Y( 1 ?) 

snoTi  =  o. 

nOR  =  ARS(npw/\X) 

NCI  0=  (  f  TT MF  *  ICvr  )  /H)  +  .  *5 
NC*  =  .qR  *  nnR  *  I  r  YC/  (  .OR  7?**M)  ♦.* 

NC7  =  .09  *  OOP  *  ICYC/f .01 90**H)  +.9 

MCfl  =  .04  *  oop  *  i r yc / ( .  oo  **n )  ♦  .* 

NCR  =  .0"'  *  DOP  *  I C YC /  (  .001o*4*H)*.9 

NN 1 G=  I 
N?  =  ** 

IF  (  OR  MAXI  01  ?  ,  01  4,  ->1  4 
01 0  R  6  =  - . 0P7?f 
R7  =  -.01  nm 
PR  =  - .  On* 

pq  =  -.0010*4 
on  to  os° 

014  »6  =  .  0  9  7"5* 
u7  .0100  4 
P«  -  ,00' 

pq  —  .  P01064 

r,n  t r  ',c>r' 

001  C.n  Tr  (  TOO  .  007  t  "*0*  ,  004  t  70S  ,  00*,  0*0  1  »  NO 

00’  MN 1 0  -  NM10  ♦  1 

IF  (NN1  O-NC  1  0  )  "*cof  ir-0,  o-')R 
r 

r  FROM  0  Tf  .Rr  or  op. MX 
r 

•»0R  M?  s  ’ 

NN*  =  o 

ooi  NN6  =  NM*  ♦  1 

rqp  s  »'P  ♦  hod*  /(Cvr 

{P  1^'N*  -  MC  M  o  SO  ,  lOQ  ,  o  01 

#- 

r  f°Om  ,R9  tr  ,oo  nr  hdmav 
r 

00  1  *1?  “  4 

NN7  -  o 
r.fi  TP  RRO 
00  4  MN7  NN7  »  1 
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DP  -  HR  ♦  H*P 7  /  1C  YC 
IF  (NN7  -  NC7J  3*5Ct  010,310 
r 

r  from  .93  rn  .97  nr  prmay 

r. 

310  N?  =  5 
NNfl  =  0 
GD  TP  050 

305  NN8  =  NNfl  ♦  1 

DR  =  oo  ♦  H*Ofl/ICYC 
IF  (N'NO  -  Nfo )  350  *311*311 
r 

r  from  .97  Tn  t.  pf  nPM/sx 

r 

311  N?  =  6 
NN9  =  0 
GO  TP  "*50 

005  NN9  =  NN9  +  1 

DR  =  OP  ♦  H*po/irvr 
IF  (NNO  -  Nf  °  )  050,  312, ->12 
r 

r.  ifvel,  op  may 

r 

M2  N?  =  7 

050  IF(NS*7)?000,7000f  o«;o 
r 

C.  MITPPT 1  (IT 

r 

35?  DSC=.003*(7C-Y(  1?)  )  +0^*Y(  7|+.01?*|  Y(1  !  YH ))- Y(  0)  *m<;i  Y  |7|)| 

U?.*Y(5J 

103  IF  ( nsr )  IIP. 107,107 

107  IF  msr  -  .505)  101, ’00,100 

n  o  IF  <PSr  ♦  .506)  l oo,  101,  '01 

100  nsr.  =  .506 

GO  TP  1  01 
109  n$C  =  -.506 

101  SPOT  =  0  *  (DSC  -PS ) 

ns  =  os  ♦  ,e  *  h/ T r vr  *  (0.  *  soot  -  sonrn 
snnTi  =  soot 
D«  =  -os 

051  fONTINMr 

r,n  tp  **ooo 
r 

r  rnNTRPl  PS  UMPUISF),  I  OAjr.TT'IOTMAI 

r 

1004  ir  ns9i)4oi ,500,501 
5oo  i r c ?r yp -i)5ji  ,4ii,4)7 
511  N5*0 
NTS  T* ’ 

NMPOsO 

r,n  tp  5oi 

51?  N4«-1 
NT  ST*  o 
NMpo*  0“> 
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401  IF!  N4-NTST  140?, 402, '.01 
40?  DS  =  nsP 

40?  I F { MP0( N4, NMOO) 1 4 1 0 , 406 , 4 1 0 

r 

C  PUNCH  THFTA  ANO  TJMF  FOR  FRFQUFNCY  RTIJOY  { LONG  I Tl p  f  NAl  ) 

r 

406  WRITr  ! ?,40?) Y{7) ,Y! 1 ?1 
40 5  FORMAT!  ?F1  *5. 7  ) 

410  N4  =  N4  +  ! 

GO  TP  ?000 
C 

C  CONTRCl  DR  (IMPULST),  IATF°A| 

r 

l 00 5  TF  (ISW?)501  ,500,4^1 

500  T  F(  ICvr,-l  1511,511,51? 

511  N5  =  0 

NTST  =1 
NMno=9 
CO  TO  "01 
51?  N  5  =  - 1 
NT  ST  =  ? 

NMO!0=?? 

501  IF!N5-NTST)50?,40?,40? 

50?  OR  =  OR F 

50?  I F ( MOO  f  N5 , NM00 )  1510,506,510 
r 

C  PUNCH  PHI  AND  T  I  MF  P  OR  FRCQ||FNCY  STIjOY  !L  ATFP  Al.  1 

r 

504  WRITFC’,405)  V{o),  YIP! 

510  N5  =  N4  ♦  1 
CO  TP  ?50 
r 

r  <*ONTROL  ACrcL/OFCFL  *■  AUTOPILOT 

r 

1004  IF(  I5W?  1601,600,401 
600  K'6  =  1 

T  5W6=  0 
NNl 1= 1 

T L  I  M=  1  0.  *T  1  v*r  +(t,r  . 

7C  =  vt  1  ?! 

5PPT1  =  0. 

MCI  1 =4?*( 1CYC /Ml 
Nf.  1  ?=  T  I  MP  •  l  C  YC  /M 

nc*o. 

CO  Tr  15? 

*-)1  no  TOf  4??,  60’, 604,  '.PS,  1  ,V4 

r 

or  =o. 

40  ?  NNl l  =  NN 1 1 ♦ 1 

1  F  (  NNl  l -NCI  1  1 
r 

40?  M4-*? 

tlC  *  R  .  5 

NM1?rO 
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603  NN12=NN12+1 

IF ( NNl  2-MC  1  2)  362,362,600 

600  I F  (  ISW6)617,616,617 
617  N6  =  7 
UC  =  0. 

GO  TP  7*52 

r 

616  N6=  3 

UC=16.^0 
NNl 2=0 

604  NNl 2=NN1 2+ 1 

IF  (NN1*>-NC12  I  362, 36  2,610 

r 

610  I F (  16W6161 6, 616,61 6 
616  GO  TP  60° 

r 

616  N6=  4 

!IC  =  ?6 .726 
NNl 2=0 

606  NNl ?=NN1 ?♦! 

IF( NN12-NC1  2)  36  2,762,61  1 

r 

611  I F (  ISW6)616,614,61o 
610  GO  TO  616 

r 

614  N 6=  6 

ur  =  7*  .76 
NNl 2=0 

606  NNl ?  =  NNl ?♦  1 

I  F  f  NNl  7-NC  1  2  )  ’*5  2,  36%  61? 
r 

61 ?  I F ( ISN61620, 621 ,620 

6?o  r.n  to  6i6 
r 

6  ■*  1  N6=  6 

ur=4?,->->6 

NNl 2=0 

607  NNl  2*NN1  ?♦! 

!F(  NNl  ’-MCI? I  76  2, 0F7,  61  ■> 
r 

617  1 SW6  =  1 

GO  TP  614 
r 

C  CPNT07L  MAXIMUM  AG r FL /OF r p |  ♦  AUTOPILOT 

r 

1^07  1 F ( t * W? 1 701 , 700,101 
700  N 7* 1 
NNl 7=1 

HIM,*.' 

NCI  7«60*!C VC  /H 
NCI 4=T IMf^ICVr/M 
sr.nTi  r-». 

ZC=vn  ’» 
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IIC  =  0. 
r,D  TO  11? 

701  r>0  Tn(70?,70?,?1?)»M7 

r 

r.  or.=o. 

707  NNl 3=NNl ?+ 1 

I F  (  NNU-MC  1  3  1  0t'',f,r'',t701' 

r 

701  N7=? 

IIC=42.??1 
NN1 4=0 

700  NN14=NN14+1 
I F  (  N*‘l  4-NC  1  4 ) 

r 

706  N7  =  0 
UC  =0. 
r,0  TP  0  1? 

?000  RFTUPN 
FMP 

/* 

/r. 
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JOB  EC  572 
EXEC  FFOPTRAN 
DIMENSION  V I ( B  ) 

DIMENSION  CB!5)  ,  AI(  5)  «WJI(10)  ,PWJ<10) 

DIMENSION  XP(512),YP(512> 

DIMENSION  DAT  A (2000 1 
DIMENSION  F  PR  I  SO) 

1  FORMAT { 8  F10 • 5  ) 

2  F0RMAT!1X,8F15.5  ) 

3  FORMAT! IX, 6E 20*7) 

4  FORMAT I4I5»4F10.5) 

5  FORMAT! ?0A4) 

B  FORMAT! /5X,?9HTOO  MANY  POINTS  FOR  DIMENSION/) 

11  FORMAT (1  Hi ) 

12  FCRMAT!I5,5X,F10.4) 

13  FORMAT! !X,77hPL0T  THE  TAPF  ON  UNIT  »181') 

14  FORMAT IIX,33HN0  PLOT  CREATED,  SORRY  'BOUT  that) 

15  FORMAT! /4Xt 1HN, ^X, BHCONTROl S/) 

16  FORMAT ! 1 6 1 5  ) 

18  FORMAT!/) 

25  FOR  MAT ( 1 7HP  SO  OF  FC572  PATA,10X,3HV  = » F 1 0 . 3 , 2X f 3HKTS 
1  /5F10.4/9X, 1H1/9X, l HI /  ) 

2ft  FORMAT! 3HENP , 7X , 5H1 024 .  ) 

CALL  PLOTStDATA, 8000,5) 

1 1 N  =  1 
I  OUT*') 

IPC.H  »  •> 

ICNSL  =  15 
NDP  =  512 
IUSEO  =  0 
ZFPC  =  0. 

XPSO  =  8. 

YPSC  =  8. 

IHX  =  IHEX ( 14,3,4,0,4,0,4,0 ) 

IHY  =  IHFX! 14,8,4,0,4, 0,4,0) 

PI  =  3.141592654 
CALL  IMTTl-11 
TWOPI  *  6.283188308 
S0RT3n  *  .8660254 
LM  *  5 
CP!1)  *  .5 
CB ! 2)  -  SQRT3D 
CB l 3 )  *  1. 

CB!4)  *  SQRT3P 

CB (  5)  «  .5 
AI(l)  *  .09088 
Alt?)  *  .43^05 
A I ( 3)  «  .53254 
A I ! 4 )  *  .43305 

A!  15)  *  .09058 


0-32.2 

CONG  •  8.10F-3  T.*r, 
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BC*  (CONGKONGJ /oi 

READ! ! IN, 4 1  N8AN0, NT , NPl T , NPCH, A,B,DT 
WRITE! TOUT  »1 5) 

NBAND  *  10 
iF<NPinm,ii5,u? 

112  IF  f  NT  -  NPIT*N0P  nil, IIS, in 

113  CONTINUE 

NPLT  =  tNT-101/NnP  ♦  1 
115  CONTINUE 

WR ITE ( IOUT , A  )  NBAND,  NT , NPL T , NPCH, A, R , DT 
NPLTS  *  NPLT 
RAND  =  NRAND 
100  CONTINUE 

READ! 1 1 N , 1 )  VI 
C  TEST  *0R  EOF 

IF  ( V I !  1  1)999,999,  10« 

105  CONTINUE 

DO  600  I V= 1 , R 

V  *  VI!IV) 

IFIV1605, 605,205 

205  CONTINUE 

WR I TE ( I  OUT ,11) 

U  *  V*1 . 68R94A 
GOU  *  G/U 

WR I TF ! I  OUT ,2  )  V,U,GDU 
EACT1*  !R,1F-5*U*U)  /(?.96*r,nu*Gnuj 
FACT2*  -  •7A*GOU*GniJ*GOU*GOU 
YO  *  EXPIFACT2/ ( A*A*A*A1) 

AY  =  EXP!FArT?/(R*R*R*Rl!  -  Yn 
ARF  A  *  FACT  1  *  AY 
AR  «  ARRA/RAND 

WRITE! IOUT ,R1  FACTl,FACT?vYD,AY,AREA,  AR 
AY  »  AY/BANC 
WJ  *  A 
!J  *  0 

DO  200  J*l, NRAND 

YO  «  YD  *•  AY 

AT  ■  -.TA/ALDG! YD) 

XI  *  GDURSOPTISCRTIATn 

Y  l  *  YD*F AC  T1 

WRITE! IOUT ,  3 1  Xl.Yl.vn 
WJ*1  «  WJ 
WJ  *  XI 

WJ I ! J  1  «  ,S*!WJ*WJ*1  I 

dwjiji  *  wj  -  wjmi 
DO  200  L«l,L* 

IJ  •  !J  ♦  1 
CALI  RANDM(RN) 

FPR ! I J 1  *  RNRTwnpf 
>00  CONTINUE 
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DO  500  ! T« 1 , NT 
TSU>*  »  0. 
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TT=  FLOAT { I T- 1 ) *OT 
IJ  *  0 

DO  400  J  =  1 ,NBANO 
WJ  »  W  J I ( J ) 

DW  =  OWJ(J) 

WJ2  =  WJ*WJ 
WJ4  =  WJ?*WJ2 

U  |C  -  U  lAftU  I 

AR  =  BC*EXP!FACT2/WJ4)/WJ5 
AT  =  WJ2/GOU 
SUM  =  0. 

00  190  L=ltLM 
IJ  =  IJ  ♦  1 
E I  J  =  FPRUJ) 

GIJ  =  !AT*CB(L)  -  WJ)*TT  ♦  F!J 
SUM  *  SUM  ♦  C0S1GIJ  )*SQRT<AHI  )*0W) 

190  CONTINUE 

TSUM  =  TSUM  ♦  AR*SIJM 
400  CONTINUE 

C  WRITE ( TOUT,? ITT, TSUM 

C 

IFINPLT  1425,425,405 
405  IF  (  (  I  T/NPLT)  *NPIT-IT) 42«it4l 0,4 25 
410  JJ  *  JJM 

IF ( JJ-NOPI420, 420,415 
415  WRITE! IOUT,fl) 

IF(NPCHI5?5, 525,418 
4 1 R  NPLT*  0 

GO  TP  4i>5 
4?0  CONTINUE 
XP! JJ)=TT 
YP<  JJ1=TSUM 
475  CONTINUF 
r 

IF(NPCH»465, 44*1,450 

450  CONTINUF 

IF!  IT-1  1452,452,451 

452  WRITE!  !«>CH, 25)  V,  ?FRP,nT ,  XPSO  ,  YPSO,  7F  RQ ,  Zr°  P 

451  CONTlN'»r 
HR ITF ( I °CH*!21  IT, TSUM 
IF! IT-NT 146*, 450,460 

440  WRITE!!  PCM,  ?M 
465  CONTINUF 
C 

500  CONTINUE 
C  PLOT 

4’5  CONTINUE 

NPIT  --  NPLT4 
I F  !  NPt  T )  57 5 , 5?5 , 5^0 
540  CONT I NUr 

J  «  MI  NO ! J J , NOP  1 
XL  *  R, 

YL  «  10. 

niv  =  »o. 
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* 


HT  =  .125 

CALL  SCALE(XP,XL, J, 1 ,OIV, 1 ) 

CALL  $CALE(YP»YL»J*1 » 0 1 V  *  ?  ) 

CALL  AXIS! 7ERO,ZFPOf IHX.-4, XL,0.0,OIV,1 > 
CALL  AX  I S ( ZFRO»  7ERO. I  HY»  4, Yl , °0. , n I V» 2  I 
CALL  LINE(XP,vp,Jfl fO,01 
IUSEO  =  IUSEO  ♦  1 
CALL  PL  CT  (  XL  ♦A  • ,  0  .  *  -T  1 
575  CONTI NUF 

600  TONTINUE 
605  CONTINUE 
00  TO  100 
999  CONTINUE 

IF  I IUSE01998 ,997,<J9p 
993  CONTINUE 

CALL  PLOT ( 8  •  ,  0  •  , 999 ) 

WRITE!  ICNSL  1 1 3  1 
GO  TO  996 
997  CONTINUE 

WRITE! ICNSL,141 
996  CONTINUE 
CALL  EXIT 
END 
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NAVTRADEVCEN  68-C-0050-2 
APPENDIX  B 

INTEGRATION  TECHNIQUES 

The  subroutine  INTEG  used  with  propram  EB920  Submarine  Simulation 
is  programed  to  use  three  different  integration  techniques;  Euler,  2nd 
Order  Adams,  and  a  2nd  non-classical  method  (O^  ).  Table  2U  contains 
the  coefficients  for  these  and  19  other  methods  that  can  be  programed 
into  this  subroutine  by  means  of  the  equation 
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TABLE  2 5# POPULAR  NUMERICAL  INTEGRATION  TECHNIQUES 


3 


*i  Vi 


+  h 


3 

2 

i  >o 


bt  Vi 


Method 

Type 

“I 

*2 

n 

n 

b2 

b3 

Euler 

°11 

1 

1 

Backward  Rectangular 

C11 

1 

1 

2nd  Order  Adame 

°12 

1 

3/2 

-1/2 

Trapezoidal 

C12 

1 

1/2 

1/2 

O33  Mod  Gurkt 

°33 

1.1462 

-0.2011 

0.0S49 

1.6416 

-1.0080 

0.2751 

Clasaic  033 

°33 

-18 

9 

10 

9 

18 

3 

Simpson 

Cl3 

1 

1/3 

4/3 

1/3 

O30  C31  Mod  Gurkt 

1.807 

-1.109 

0.303 

1.146 

-0.201 

O.OSS 

0.909 

Classic  O30 

°30 

3 

-3 

1 

Clasaic  C31 

C31 

18/11 

-9/11 

2/11 

6/11 

3/8  Rule 

Cl4 

1 

3/8 

9/8 

9/8 

3/8 

Adama  -  Bashforth 

Cl4 

1 

9/24 

19/24 

-5/24 

1/24 

Best  0^2  Method  Baaed  * 

°12 

1 

3/4 

1/4 

on  Stability  Alone 

1/2  Rule 

C24 

1/2 

1/2 

17/48 

51/48 

3/48 

1/48 

Parabolic 

°13 

1 

23/12 

-4/3 

5/12 

Classic 

°11 

1 

2 

Classic 

°22 

-4 

5 

4 

2 

Classic 

C22 

8/10 

2/10 

4/10 

8/10 

Classic 

C13 

1 

5/12 

2/3 

-1/12 

Classic 

C32 

9/17 

9A7 

-1/17 

6/17 

18/17 

1/3  Rule 

c34 

1/3 

1/3 

1/3 

13/36 

39/36 

15/36 

5/36 

2/3  Rule 

Cj4 

_ 

2/3 

1/3 

25/72 

91/72 

43/72 

9/72 

t  Denote*  •  non-cltulc  method 
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GLOSSARY 


Symbol  Dimensionless  Form 


Definition 


B 


B'  = 


B 


CB 

CG 

1 


lx 

1  '  =  — — 
x  *P*6 

ly 

V  =  ipt5 


1  '=  jl- 

2 


xy 


I  1  = 

xy  mu6 


y* 


T  ,  _  WZ 

!y*  ipF 


zx 


zx 


!zx’  = 


K 


K*, 


K, 


K  ,  , 

pip! 


K1  r 


K 


TTTJ 


*p*3u 
K* 

K*’  =  *p*3U* 

K*v  = 

K  '.A- 

P  4pt«U 

K  •  -  JfiL 
p  ipf 

Wf^ 


K 


pq 


K» 


Vi? 


Buoyancy  force,  positive  upward 

Center  of  buoyancy  of  submarine 
Center  of  mass  of  submarine 

Moment  of  inertia  of  submarine  about  x  axis 

Moment  of  inertia  of  submarine  about  y  axis 

Moment  of  inertia  of  submarine  about  z  axis 

Product  of  inertia  about  xy  axis 
Product  of  inertia  about  yz  axes 

Product  of  inertia  about  zx  axes 

Hydrodynamic  moment  component  about  x 
axis  (rolling  moment) 

Rolling  moment  when  body  angle  (ry,  8)  and 
control  surface  angles  are  ?ero 

Coefficient  used  in  representing  K#  as  a 
function  ot  (tj-  l) 

First  order  coefficient  used  in  representing 
K  as  a  function  of  p 

Coefficient  used  in  representing  K  as  a  function 
of  p 

Second  order  coefficient  used  in  representing 
K  as  a  function  of  p 

Coefficient  used  in  representing  K  as  a  function 
of  the  product  pq 
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Kqf 

k  '.JSai. 

qr  *p*6 

Coefficient  used  in  representing  K  as  a 
function  of  the  product  qr 

K 

r 

Kr  ‘  $p*4  U 

First  order  coefficient  used  in  representing 

K  as  a  function  of  r 

K. 

T 

k  ...*SL 
r 

Coefficient  used  in  representing  K  as  a 
function  of  r 

K 

V 

K  -  -  Kv 

v  frp*sU 

First  order  coefficient  used  in  representing 

K  as  a  function  of  v 

K. 

V 

Ki 

K.'  r  _L. 

v  ip*4 

Coefficient  used  in  representing  K  as  a 
function  of  v 

K  ,  , 
v|v| 

y  ,  _  Kv|vl 

Kv|v|  -f W 

Second  order  coefficient  used  in  representing 

K  as  a  function  cf  v 

K 

vq 

Kvn 

K  '  = 

vq  *p** 

Coefficient  used  in  representing  K  as  a  function 
of  the  product  vq 

K 

vw 

K  '--*™ 

v*  $p*3 

Coefficient  used  in  representing  K  as  a  function 
of  the  product  vw 

K 

wp 

K  1  -  KwP 

WP  "  *p44 

Coefficient  used  in  representing  K  as  a  function 
of  the  product  wp 

K  _ 
wr 

Y  i -  Kwr 
"  ip*4 

Coefficient  used  in  representing  K  as  a  function 
of  the  product  wr 

K. 

6r 

K  K6r 

6r  Jp**  U* 

First  order  coefficient  used  in  representing 

K  as  a  function  of  6r 

* 

*'  =  1 

Overall  length  of  submarine 

m 

m'  =  ,  m3 
ip* 

Mass  of  submarine,  including  water  in  free- 
flooding  spaces 

M 

M'  =  T-— 7 

io*auJ 

Hydrodynamic  moment  component  about  y  axis 
(pitching  moment) 

M* 

Me 

M*'Si^ 

Pitching  moment  when  body  angles  (o,  5)  and 
control  surface  angles  are  zero 

M 

PP 

M 

pp  ip*8 

M- 

m  •  *  — a_ 

*»  io*4  u 

Second  order  coefficient  used  in  representing 
Mass  function  of  p.  First  order  coefficient  is 
sero. 

M 

q 

First  order  coefficient  used  in  representing 
Mass  function  of  q 

% 

m  '  *  J^a3_ 
qn  *0*n/ 

First  order  coefficient  used  in  representing 

M  as  a  function  of  (*}-l) 
q 

M. 

q 

Mi 

M.'  *  y-~f- 

q  fp*4 

Coefficient  used  in  representing  M  as  a 
function  of  q 
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M 


M 


fol* 


alll 


Second  order  coefficient  used  in  representing 
M  as  a  function  of  q 


M, 


»  „ 


M 


Lilii 


q|&8  fcpt4U 


Coefficient  used  in  representing  M^s  as  a 
function  q 


M 


rp 


M 


rr 


M 


vp 


M 


vr 


M 


M 


M 


wrj 


M. 

w 


M, 


M 


Ml 


M 


W  j  W  | 


M 


M 


M 


6b 


M 


6s 


Coefficient  used  in  representing  M  as  a 
function  of  the  product  rp 


Mrr 

M  •  =  -r-rr- 
rr  Vr 


M 


M 


IB. 


VP 


Second  order  coefficient  used  in  representing 
M  as  a  function  of  r.  First  order  coefficient 
is  zero 

Coefficient  used  in  representing  M  as  a 
function  of  the  product  vp 


Mvr 

M  ’  - - - 

vr 


$p64 


Coefficient  used  in  representing  M  as  a 
function  of  the  product  vr 


M  1  = 
vv 


Mvv 


Seco.id  order  coefficient  used  in  representing 
M  as  a  function  of  v 


M 


v 


First  order  coefficient  used  in  representing 
M  as  a  function  of  w 


M 


v-T) 


tP4  U 


First  order  coefficient  used  in  representing 
Mw  as  a  function  of  (*1- 1) 


M.’  = 


M!w|’s 


M; 


ippu 

M|w  I 


Ml  I  1  =  T —  — 

M  q  #c? 


Coefficient  used  in  representing  M  as  a  function 
of  w 

First  order  coefficient  used  in  representing  M 
as  a  function  of  w;  equal  to  zero  for  symmetrical 
function 

Coefficient  used  in  representing  M_  as  a  function 
of  v. 


M 


M 


V. 


§pt 


Second  order  coefficient  used  in  represi  nting 
M  as  «  function  of  w 


M  ,  h!r» 

*,w,T>  =  izr 


M 


Mn 


M 


6b 


First  order  coefficient  used  in  representing 
Ki  .  ,  as  a  function  c.t  !n-  1) 

vr  j  w  ( 

Second  order  cor  firient  used  in  representing 
Mass  function  of  u. ;  equal  to  zero  fo»  nym- 
met.  teal  function 

First  order  coefficient  used  if  representing 
M  as  a  (unction  of  6^ 


M 


6s 


M.s 


First  order  c-acffu tent  umH  in  representing 
M  a*  a  function  of  4  j 


M 


6s»f 


M  /t  f  rf 

iSVC* 


Firit  otder  cocffict<-nt  used  Mi  repre v*- tiling 
Mjs  a»  a  function  of 
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N 


N' 


N 

SpFu2 


Hydrodynamic  moment  component  about  ?. 
axis  (yawing  moment) 


N* 

N*  N*'  = 


Yawing  moment  when  body  angles  (a,  $)  and 
control  surface  angles  are  zero 


N 


P 


Np 

V  s  fpFu 


First  order  coefficient  used  in  representing  N 
as  a  function  of  p 


N.'  = 


N 


-  NPQ 

pq  $pt6 


Coefficient  used  in  representing  N  as  a  function 
of  p 

Coefficient  used  in  representing  N  as  a  function 
of  the  product  pq 


N 


q* 


N 


Nqr 


Coefficient  used  in  representing  N  as  a  function 
of  the  pjoduct  qr 


N 


r 


N 

N  '=  - — t— 
r  gp4«U 


First  order  coefficient  used  in  representing  N 
as  a  function  of  r 


First  order  coefficient  used  in  representing 
Nr  as  a  function  of  (rj-l) 


N. 


r 


Coefficient  used  in  representing  N  as  a  function 
of  r 


Second  order  coefficient  used  in  representing 
N  as  a  function  of  r 


N 


Irl&r 


N, 


» 

r !  fir 


N| rl fir 


Coefficient  used  in  representing  as  a 
function  of  r 


N 

v 


N 


Nv 

IpFu 


First  order  coefficient  used  in  representing  N 
as  a  function  of  v 


N, 


vtl 


|p*3U 


First  order  coefficient  used  in  representing  Nv 
as  a  function  of  (17- 1) 


N. 


v 


N.'  = 


Coefficient  used  in  representing  N  as  a 
function  of  v 


Coefficient  used  in  representing  N  as  a  function 
of  the  product  vq 


M 


Mr 


Coefficient  used  in  representing  Nr  ss  s 
function  of  v 


2 


Ny|v| 

TZT 


Second  order  coefficient  used  in  representing 
N  ss  a  function  of  v 


NvMn 


N 


v‘,  v|n 


* 


Nv|  vt|) 

t «r 


First  order  coefficient  used  in  representing 
N’v|v|  *•  »  function  of  (rj-0 
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Coefficient  used  in  representing  N  as  a  function 
of  the  product  vw 

Coefficient  used  in  representing  N  as  a  function 
of  the  product  wp 

Coefficient  used  in  representing  N  as  a  function 
of  the  product  wr 

First  order  coefficient  used  in  representing  N 
as  a  function  of  6r 

First  order  coefficient  used  in  representing 
as  a  function  of  (rj-l) 

Angular  velocity  component  about  y  axis 
relative  to  fluid  (roll) 


Angular  acceleration  component  about  x  axis 
relative  to  fluid 


Angular  velocity  component  about  y  axis  relative 
to  fluid  (pitch) 


Angular  acceleration  component  about  y  axis 
r  lative  to  fluid 

Angular  velocity  component  about  z  axis 
relative  to  fluid  (yaw) 

Angular  acceleration  component  about  z  axis 
relative  to  uuid 


Linear  velocity  of  origin  of  body  axes  relative 
to  fluid 

Component  of  U  in  direction  of  the  x  axis 


Time  rate  of  change  of  u  in  direction  of  the 
x  axis 

Commend  speed:  steady  value  of  ahead  speed 
component  u  tor  a  given  propeller  rprn  when 
body  angles  (a.  3)  and  control  surface  angles 
are  zero.  Sign  changes  with  propeller  reversal 

Component  of  U  in  direction  of  the  y  axis 


v 


T.im  rale  of  change  of  v  in  direction  of  the 
/  axis 
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W 

1  w 

w'  =  - 

U 

Component  of  U  in  direction  of  the  z  axis 

• 

w 

w  '  =  — r 

U2 

Time  rate  of  change  of  w  in  direction  of  the 
z  axis 

w 

W'-  W  , 

Weight,  including  water  in  free  flooding  spaces 

X 

X-  =  -2- 

4 

Longitudinal  body  axis;  also  the  coordinate  of  a 
point  relative  to  the  origin  of  body  axes 

XB 

x_ 

xn'  = 

B  l 

The.  x  coordinate  of  CB 

XG 

x  ,.fG 

XG  ‘  l 

The  x  coordinate  of  CG 

xo 

,  x0 

x°  T 

A  coordinate  of  the  displacement  of  CG  relative 
to  the  origin  of  a  set  of  fixed  axes 

X 

y.  _  X 

Jp-t2U2 

Hydrodynamic  force  component  along  x  axis 
(longitudinal,  or  axial,  force) 

X 

qq 

x  •  =  i^aa. 
qq  £pi* 

Second  order  coefficient  used  in  representing 

X  as  a  function  of  q.  First  order  coefficient 
is  zero 

X 

rp 

X  '  =  -^L 
rP  Jpt4 

Coefficient  used  in  representing  X  as  a  function 
of  the  product  rp 

Xrr 

x  •  -  X" 

Xrr  fpf.4 

Second  order  coefficient  used  in  representing 

X  as  a  function  of  r.  First  order  coefficient  is 

zero 

X. 

u 

X  '  -  x^. 

u  ”  JpT5" 

Coefficient  used  in  representing  X  as  a  function 
of  u 

Xuu 

X  '  = 

uu  hoi1 

Second  order  coefficient  used  in  representing 

X  as  a  function  of  u  in  the  non-propelled  case. 
First  order  coefficient  is  zero 

Xvr 

xvr 

X  1  -  v  . 
vr  * 

Coefficient  used  in  representing  X  as  a  function 
of  the  product  vr 

XVV 

X  •  -  Xw 
vv  ipt1 

Second  order  cocffient  used  in  representing  X 
as  a  function  of  v.  First  order  coefficient  is  zero 

Xyvtj 

x  • 

First  order  coefficient  used  in  representing  Xvv 
as  a  function  of  (t)- 1) 

Xwq 

v  ' _ 

Xwq  * 

Coefficient  used  tn  representing  X  as  a  function 
of  the  product  wq 
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X 

ww 

v  ,  Xww 

ww  ”  j^pl* 

Second  order  coefficient  used  in  representing 

X  as  a  function  of  w.  First  order  coefficient  is 

zero 

Xv.  w  7] 

y  ,  _  ^WWT) 

WWT)  “  Jpt* 

First  order  coefficient  used  in  representing  Xww 
as  a  function  of  (t|-1) 

X6b6b 

.  x6b6b 

6b6b  “  $pj*u'2 

Second  order  coefficient  used  in  representing  X 
as  a  function  of  6^.  First  order  coefficient 
is  zero 

X6r  6r 

X6r6rr> 

v  i  -  X6r6r 

6r6r  ^pt2U2 

x  1  =  —.—.fell 

A6r6r"7  ^pZ^U* 

Second  order  coefficient  used  in  representing 

X  as  a  function  of  6r.  First  order  coefficient  is 
zero 

First  order  coefficient  used  in  representing 

X.  e  as  a  function  of  (rj-1) 

6r  6r 

a6s6s 

v  ,  _  X6s6s 

6s6s  "  ^pt2U2 

Second  order  coefficient  used  in  representing  X 
as  a  function  of  6S.  First  order  coefficient  is 

zero 

X6s6stj 

,  _  x6s6s7j 
6s6stj  |p|,zU2 

First  order  coefficient  used  in  k epreser.dng 

X,  ,  as  a  function  of  (77- 1) 

6s6s 

y 

y,=x 

Lateral  body  axis;  also  the  coordinate  of  a 
point  relative  to  the  origin  of  body  axes 

yB 

V  =TT 

The  y  coordinate  of  CB 

yc 

,  yG 
yG  _  T~ 

The  y  coordinate  of  CG 

yo 

y  .a20 

Y°  t 

A  coordinate  of  the  displacement  of  CG  relative 
to  the  origin  of  a  set  of  fixed  axes 

Y 

Y  tolW 

Hydrodynamic  force  component  along  y  axis 
(lateral  force) 

Y* 

Y*  ~ipt2U2 

Lateral  force  when  body  angles  (a,  /?)  and  control 
surface  angles  are  zero 

Y 

P 

YP 

Y  '  =  * 

p  ip-t3u 

First  order  coefficient  used  in  representing 

Y  as  a  function  of  p 

Y. 

P 

Y  A 

V 

Coefficient  used  in  representing  Y  as  a  function 
of  p 

Yplp> 

Y  .  .  ’  =  IpM 

pip1  £pt* 

Second  order  coefficient  used  in  representing 

Y  as  a  function  of  p 

)V 
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Y 

pq 

Y__ 

Y  '  =  -r-^9- 

pq 

Coefficient  used  in  representing  Y  as  a  function 
of  the  product  pq 

Y 

qr 

Y  '  =  J-3I 

qr 

Coefficient  used  in  representing  Y  as  a  function 
of  the  product  qr 

Yr 

Y  .=_4_ 

r  ^Fu 

First  order  coefficient  used  in  representing  Y 
as  a  function  of  r 

Yrrj 

Y  '  r  .  Y-r-Tl 
rT|  £pFu 

First  order  coefficient  used  in  representing 

Yf  as  a  function  of  (tj-1) 

Y. 

r 

Y  -  -  Yf 

r  fcpi4 

Coefficient  used  in  representing  Y  as  a  function 
of  r 

Y 1  r  f  6r 

Y  -  -  YM6r 

Y|  r  f  6r  "  *PFu 

Coefficient  used  in  representing  Y  as  a 
function  of  r 

Y 

V 

Y  '  =  Yv 

v  iPt*U 

First  order  coefficient  used  in  representing 

Y  as  a  function  of  v 

Yvt? 

Y 

Y  •  =  VT? 

yTJ  fcptHj 

First  order  coefficient  used  in  representing 

Yy  as  a  function  of  (t)-1) 

Y. 

V 

Yv 

Y.'  = 
v  *p<-3 

Coefficient  used  in  representing  Y  as  a 
function  of  v 

Y 

vq 

Y 

Y  '  =  .  V<1 
vq 

Coefficient  used  in  representing  Y  as  a  function 
of  the  product  vq 

Yvl  r  1 

Y  .  _  Yv| r| 

Yvlr| 

Coefficient  used  in  representing  Yv  as  a  function 
of  r 

Yv|vl 

Second  order  coefficient  used  in  representing 

Y  as  a  function  of  v 

Yvl  vltj 

Y  vlvlrj 

Yvj  v  Itj 

First  order  coefficient  used  in  representing 

Yy| vj  as  a  function  of  (rj- 1) 

Y 

vw 

Y  ■ -  Yvw 
™  ip42 

Coefficient  used  in  repre  enting  Y  as  a 
function  of  the  product  vw 

Y 

wp 

y 

Y  '  =  -22- 

wp  io^3 

Coefficient  used  in  representing  Y  as  a 
function  of  the  product  wp 

Ywr 

Y 

v  •  -  wr 
**  ^P43' 

Coefficient  used  in  representing  Y  as  a 
function  of  the  product  wr 

Yfir 

Y  -  -  Y«r 

6r  *  |P42U2 

First  order  coefficient  used  in  representing 

Y  as  a  function  of  6 r 

Y6rn 

Y  •  -  Y  6rtJ 

6rT>  $pt*u* 

First  order  coefficient  used  in  representing 

Y.  as  a  function  of  (rj- 1) 
a  r 
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z 

Z'=T 

Normal  body  axis;  also  the  coordinate  of  a 
point  relative  to  the  origin  of  body  axes 

z  ■  s  \ 

ZB  t 

The  z  coordinate  of  CB 

ZC 

z  •  =^- 

*G  l 

The  z  coordinate  of  CC 

z 

o 

zo  s  IT 

A  coordinate  of  the  displacement  of  CG 
relative  to  the  origin  of  a  set  of  fixed  axes 

Z 

Z  "ipt!u! 

Hydrodynamic  force  component  along  z 
■  axis  (normal  fores) 

Z* 

V  =  z*  , 

*  ipZ2U2 

Normal  force  when  body  angles  (a,  j3)  and 
control  surface  angles  are  zero 

z 

pp 

Z 

Z  '  =  — 
pp  ipt4 

Second  order  coefficient  used  in  representing 
Z  as  a  function  of  p.  First  order  coefficient 
is  zero 

z 

q 

z  *  -  zi 
q  £p*.3u 

First  order  coefficient  used  in  representing 

Z  as  a  function  of  q 

Zqn 

7,  '  -  zq*i 

qtj  ‘*P*3u 

First  order  coefficient  used  in  representing 
Zq  as  a  function  of  (rj-1) 

z. 

q 

7  1  - 

q  M4 

Coefficient  used  in  representing  Z  as  a 
function  of  q 

Z  I  q  1  6  s 

.  -  ziq!6s 
Iql^s  ^pz3u 

Coefficient  used  in  representing  Zfig  ?.s  a 
function  of  q 

Z 

rp 

Z  ■  =  -^SE- 
rP  ipz4 

Coefficient  used  in  representing  Z  as  a 
function  of  the  product  rp 

Z 

xr 

zrr 

Z  '  = 

rr  Jpt4 

Second  order  coefficient  used  in  representing 
Z  as  a  function  of  r.  First  order  coefficient 
is  zero 

Z 

w 

Z  1  =  — 
w  ipzzu 

First  order  coefficient  used  in  representing 

Z  as  a  function  of  w 

Z 

WTJ 

Z  '  =  ---V* 

wn  |ot-u 

First  order  coefficient  used  in  representing 
Zw  as  a  function  of  (rj-l) 

Z  . 
w 

Zw 

V s  f5&“ 

Coefficient  used  in  representing  Z  as  a 
function  of  w 

ZH 

z  '  = 

lwl  fp</U 

First  order  coefficient  used  in  representing 

Z  as  a  function  of  w;  equal  to  zero  for  sym¬ 
metrica!  function 

Zw|ql 

,  ,  _  Zwlqi 

Z-!ql  '  *ot3 

Coefficient  used  in  representing  Z  as  a 
function  of  q 
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7  7  Zwlw| 

w|wl  w|w| 

z  ,  ,  z  .  '  s 

w|w|rj  wlwjrj 


z  2,  I  —  w7 

WW  WV/  Jpt2 


7 

Z  1 

z5b 

ob 

ob 

tptW 

7 

7  • 

z6s 

Z6s 

6s 

fcrt2u2 

z 

Z  1 

z6srj 

OSTJ 

6st] 

"  *pi2u: 

Second  order  coefficient  used  in  representing 
Z  as  a  function  of  w 

First  order  coefficient  used  in  representing 

Z  ,  -  as  a  function  of  (t)-1) 

w)w|  '*  ' 

Second  order  coefficient  used  in  representing 
Z  as  a  function  of  w;  equal  to  zero  for  sym¬ 
metrical  function 

First  order  coefficient  used  in  representing  Z 
as  a  function  of  6^ 

First  order  coefficient  used  in  representing 
Z  as  a  function  of  os 

First  order  coefficient  used  in  representing 

Z,  as  a  function  of  (rj- 1 ) 
o  s 


a 


Angle  of  attack 


P 

6. 


V 

8 


Angle  of  drift 

Deflection  of  bowplane  or  sailplane 

Deflection  of  rudder 

Deflection  of  sternplane 
uc 

The  ratio 
Angle  of  pitch 


* 


Angle  of  yaw 


0 


Angie  of  roll 


V  V 


c. 

X 


Sets  of  constants  used  in  the  representation  of 
propeller  thrust  in  the  axial  equation 
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